U为起始日期，D为起始时间
V为结束日期，B为结束时间
Dim d1 As Date = e.Form.Controls("U").Value
Dim d3 As Date = e.Form.Controls("D").Value
Dim d2 As Date = e.Form.Controls("V").Value
Dim d4 As Date = e.Form.Controls("B").Value
If d1 = Nothing Or d2 = Nothing Then
MessageBox.Show("日期都不能为空","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
With DataTables("生产记录")
.LoadFilter = "日期>=#" & d1 & "# and 日期<=#" & d2 & "#"
.Load()
End With
' Dim g As New CrossTableBuilder("统计表2", DataTables("生产记录"))
' g.HGroups.AddDef("配方名称")
' g.VGroups.AddDef("原料名称")
' g.Totals.AddDef("实际值")
Dim b As New GroupTableBuilder("统计表2",DataTables("生产记录"))
b.Groups.AddDef("配方名称")
b.Groups.AddDef("原料名称")
b.Totals.AddDef("设定值")
b.Totals.AddDef("实际值")
b.Totals.AddDef("误差值")
b.Build '生成统计表
MainTable = Tables("统计表2")
Tables("窗口1_Table1").DataSource =b.BuildDataSource()
End If
加好友 
发短信
Post By：2020/6/17 8:38:00 [只看该作者]
