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
加好友 
发短信
Post By：2017/2/26 16:57:00 [显示全部帖子]
