主题：请大师指教！谢谢！

大师：您好！

我的当前表  qrymyf.qraaan.ddwxnyfgge 有十多行，列"ntdc4" = 列ntdc3 + 列siud ，我加了一个Button控件 要一行一行地选取，单击。

可不可以单击一次就可以当前表所有行全部计算好？多谢指点！！！

 

Dim t As Table = Tables("qrymyf.qraaan.ddwxnyfgge")
Dim d As Col = t.Cols(t.ColSel) ' 这选定列的名称是"ntdc3
Dim z() As String = d.name.split("c")
Dim b = z(1) + 1
Dim f = z(0) & "c" & b '这显示是nydc4
t.Current(f) = (t.Current(d) + t.Current("siud"))