此主题相关图片如下:捕获888.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-12/201512101363923310.png)
如图,可能是我之前没有说清楚,在这里再重新说一次,忘各位大师指点
Dim dt As DataTable = DataTables("发货公斤")
Dim Total As Integer
Dim Customers As List(Of String)
Customers = dt.GetValues("name2")
For Each Customer As String In Customers
e.form.controls("la").text=Tables("发货单号.发货公斤").Compute("Sum(kg1)", "[name2] = '" & Customer & "'")
Next
这么写可以么?怎么没有反应呢
当前表为 【发货单号.发货公斤】(虽然是子表,和我们统计的内容没有关系, 现在要统计的是,当前表内 按照唛头(name2)来统计数据的,不用特别的按钮,输入数据的同事,在lable(la)上显示。)
我的目的是按照客户名(唛头) 统计 公斤数(kg1) 的总和,
但是 程序上没有反应,,麻烦各位大师指点
我输入第一行的时候 la 应该显示为 2
第二行的时候 la 应该显示为 7
第三行的时候 la 应该显示为 13
第四行的时候 la 应该显示为 20(注意,这里用户名换了)所以 从新开始汇总
第五行的时候 la 应该显示为 44
第6行的时候 la 应该显示为 99
假如第7行 的唛头(name2) 又变成 abxx 那么 la的值=13 + 当前行的 公斤数(kg1)
以后如果 在换其他用户名的话,在重新开始 累计
[此贴子已经被作者于2015/12/10 1:45:26编辑过]