此主题相关图片如下:qq图片20160805115753.png
像这样的 能不能用 批量生成 或者 加入变量 什么的 一条一条改太麻烦了
Dim ary1() As String = {"H1", "H2"}
Dim ary2() as string = {"s1", "s2"}
For i As Integer = 0 to ary1.Length - 1
Forms("").Controls(ary2(i)).Text = DataTables("").Compute("sum(" & ary1(i) & ")")
Next