Dim g As New SQLGroupTableBuilder("分组统计表","库存总表")
g.C
Dim Cols1() As String = {"品名","规格","材质","零件号"}
Dim Cols2() As String = {"品名","规格","材质","零件号"}
Dim Cols3() As String = {"品名","规格","材质","零件号"}
g.AddTable("库存总表",Cols1,"入库表",Cols2,"出库表",Cols3)
'Dim y As Integer = e.Form.Controls("ComboBox1").text '指定年份
'Dim m As Integer = e.Form.Controls("ComboBox2").text '指定月份
'Dim dt1 As New Date(y, m, 1)
'Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
g.Groups.AddDef("库存类别")
g.Groups.AddDef("品名")
g.Groups.AddDef("规格")
g.Groups.AddDef("材质")
g.Groups.AddDef("零件号")
g.Groups.AddDef("国标")
g.Groups.AddDef("炉号")
g.Groups.AddDef("等级")
g.Groups.AddDef("品牌")
g.Groups.AddDef("储位")
g.Totals.AddDef("入库数量")
g.Totals.AddDef("出库数量")
g.Totals.AddExp("库存数量","入库数量 - 出库数量")
'g.Filter = "入库日期 >= #" & dt1 & "# And 入库日期 <= #" & dt2 & "#"
'g.Filter = "出库日期 >= #" & dt1 & "# And 出库日期 <= #" & dt2 & "#"
g.Filter = "入库日期 >= # 2013,5,1 # And 入库日期 <= # 2013,5,31 #"
g.Filter = "出库日期 >= # 2013,5,1 # And 出库日期 <= # 2013,5,31 #"
g.Build()
此主题相关图片如下:qq截图20130514093146.png
没弄明白哪里有问题,数据库里的表名也是对的呀~
[此贴子已经被作者于2013-5-14 10:03:15编辑过]