Dim d1 As Datetime = e.Form.Controls("H").Value
Dim d2 As Datetime = e.Form.Controls("I").Value
Dim s As String = e.Form.Controls("J").Value
If d1 = Nothing Or d2 = Nothing Then
MessageBox.Show("日期都不能为空","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
With DataTables("生产记录")
.LoadFilter = "日期>=#" & d1 & "# and 日期 < #" & d2.adddays(1) & "#"
.Load()
End With
Dim b As New GroupTableBuilder("统计表1",DataTables("生产记录"))
b.Groups.AddDef("原料名称")
b.Totals.AddDef("设定值")
b.Totals.AddDef("实际值")
b.Totals.AddDef("误差值")
b.Build
MainTable = Tables("统计表1")
Tables("窗口3_Table1").DataSource = b.BuildDataSource()
End If
Dim g As New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "设定值,实际值,误差值"
g.Caption = "合计"
With Tables("窗口3_Table1")
.SubtotalGroups.Clear()
.SubtotalGroups.Add(g)
.Subtotal()
End With
加好友 
发短信
Post By：2022/1/1 14:02:00 [只看该作者]
