程序代码：

ColumnCount = 20
DeleteMark = .F.
Enabled = .F.
HeaderHeight = 0
Height = 20
Left = 47
RecordSource = "hejitab1"
RowHeight = 20
ScrollBars = 2
Top = 346
Width = 349
GridLineColor = 192,192,192
Name = "Grid2"
Column1.Enabled = .F.
Column1.Name = "Column1"
Column2.Enabled = .F.
Column2.Name = "Column2"
Column3.Enabled = .F.
Column3.Name = "Column3"
Column4.Enabled = .F.
Column4.Name = "Column4"
Column5.Enabled = .F.
Column5.Name = "Column5"
Column6.Enabled = .F.
Column6.Name = "Column6"
Column7.Enabled = .F.
Column7.Name = "Column7"
Column8.Enabled = .F.
Column8.Name = "Column8"
Column9.Enabled = .F.
Column9.Name = "Column9"
Column10.Enabled = .F.
Column10.Name = "Column10"
Column11.Enabled = .F.
Column11.Name = "Column11"
Column12.Enabled = .F.
Column12.Name = "Column12"
Column13.Enabled = .F.
Column13.Name = "Column13"
Column14.Enabled = .F.
Column14.Name = "Column14"
Column15.Enabled = .F.
Column15.Name = "Column15"
Column16.Enabled = .F.
Column16.Name = "Column16"
Column17.Enabled = .F.
Column17.Name = "Column17"
Column18.Enabled = .F.
Column18.Name = "Column18"
Column19.Enabled = .F.
Column19.Name = "Column19"
Column20.Enabled = .F.
Column20.Name = "Column20"

SET ENGINEBEHAVIOR 70
select 品种,nvl(sum(罐存量),0) as 期初 from main into cursor tabchu group by 品种 where bianhao=(select max(bianhao) from main group by 罐号 where 日期<=mydate1)