以文本方式查看主题

-  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=61684)

--  作者:anxue
--  发布时间:2014/12/17 11:31:00
--  [讨论]填充器条件
 填充器如何选择填充  当前行的内容
--  作者:有点甜
--  发布时间:2014/12/17 11:43:00
--  

 用代码。

 

Dim nma() As String = {"A1","A2","A3","A4"} \'A表数据来源列
Dim nmb() As String = {"B1","B2","B3","B4"} \'B表数据接收列
Dim dr As DataRow = DataTables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
    dr(nmb(i)) = Tables("表A").Current(nma(i))
Next