主题：关于自动计算2

此主题相关图片如下：捕获888.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）

       

 

      以后如果 在换其他用户名的话，在重新开始 累计

代码没有问题。放到DataColChanged事件中

无语。http://www.foxtable.com/help/topics/1301.htm

 

 

e.form.controls("la").text=Tables("发货单号.发货公斤").Compute("Sum(kg1)", "[name2] =  '" &  Tables("发货单号.发货公斤").Current("Customer") &  "'")

 

 

 

实在不会了。我还是上例子吧，发货管理那个界面。

 

1 新建

 

2 航空公司 位置输入 字符

 

3 添加kg  （在唛头里随便选两个客户 选中后， 在公斤数位置输入，数量即可 回车可以新增行

 

lable24那个位置是我要实现功能的地方。

 

 

 

afterLoad

 

e.Form.TimerInterval = 1000
e.Form.TimerEnabled = True

 

TimerTick

 

e.form.controls("la").text=Tables("发货单号.发货公斤").Compute("Sum(kg1)", "[name2] =  '" &  Tables("发货单号.发货公斤").Current("name2") &  "'")

非常，非常感谢！！！！！！

祝大红袍大师周末愉快！！！！

此主题相关图片如下：捕获.png

出现这个提示应该怎么处理呢？

TimerTick事件引用对象前判断一下