此主题相关图片如下:qq截图20111116088312.jpg

窗口按钮代码如下
Dim d1 As Date = Forms("窗口1").Controls("DateTimePicker1").value
Dim d2 As Date = Forms("窗口1").Controls("DateTimePicker2").value
Dim b As New SQLGroupTableBuilder("统计表1","aab")
b.Groups.AddDef("date_voucher",DateGroupEnum.none,"凭证日期") '根据产品分组
b.Groups.AddDef("id_voucher","","凭证号") '根据产品分组
b.Groups.AddDef("note2","","科目名称") '根据产品分组
b.Groups.AddDef("note1","","摘要") '根据产品分组
b.Totals.AddDef("inputnum","","收入_数量") '对数量进行统计
b.Totals.AddDef("inputacount","","收入_金额") '对数量进行统计
b.Totals.AddDef("outputnum","","支出_数量") '对数量进行统计
b.Totals.AddDef("outputacount","","支出_金额") '对数量进行统计
b.Totals.AddExp("inventorynum","inputnum - outputnum","结存_数量")
b.Totals.AddExp("inventoryacount","inputacount - outputacount","结存_金额")
b.Filter = "date_voucher between #"& d1 &"# And #"& d2 &"#"
Tables("窗口1_table1").DataSource = b.BuildDataSource
主要是希望查询结果的第一行摘要栏显示“承上期”,并在余额栏填入上一行的结余数量及金额
[此贴子已经被作者于2011-11-16 10:22:58编辑过]