好的,谢谢,通过这两个代码的合并已经在命令窗口成功执行了代码统计出来;
请问,我如果要把表放到下面的输入窗口应该怎么弄呢?
要求是完成一次业务员和绩效的输入后,自动更新下面表格的统计
该怎么完善呢?
此主题相关图片如下:qq图片20180223164732.png
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.Build()
For Each nm As String In DataTables("订单").GetValues("产品")
Dim dr As DataRow = DataTables("统计").AddNew()
dr("产品") = nm
dr("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & dr("产品") & "'")
dr("金额") = DataTables("订单").Compute("Sum(金额)","[产品] = '" & dr("产品") & "'")
Next
MainTable= Tables("统计")