Filter = filter & "更新时间 >= '" & dt1 & "' And 更新时间 <= '" & dt2 & "'"
'后台读取符合条件的记录
DataTables("称重信息").LoadFilter = Filter
DataTables("称重信息").Load()
Tables("明细查询_Table1").DataSource = DataTables("称重信息")
Tables("明细查询_Table1").Sort = "更新时间 DESC"
Dim g As New Subtotalgroup '定义一个新的分组
g.GroupOn = "*" '分组列为所有列
g.TotalOn = "净重" '对净重进行统计
With Tables("明细查询_Table1")
.SubtotalGroups.Clear() '清除原有的分组
.SubtotalGroups.Add(g) '加入刚刚定义的分组
.Subtotal() '生成汇总模式
End With