以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请大师指教！谢谢！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96675)
--  作者：jackyfashion
--  发布时间：2017/2/26 0:14:00
--  请大师指教！谢谢！
大师：您好！
我的当前表  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"))
--  作者：有点色
--  发布时间：2017/2/26 16:57:00
--  
Dim t As Table = Tables("qrymyf.qraaan.ddwxnyfgge")
For Each r As Row In t.rows
    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
    r(f) = (r(d) + t.Current("siud"))
Next
--  作者：jackyfashion
--  发布时间：2017/2/26 17:54:00
--  
谢谢大师指教！！！