以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  覆盖表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21651)
--  作者：jinzhengbe
--  发布时间：2012/7/20 1:27:00
--  覆盖表

表a 有10列

表b 有20列（前10列与表a相同

 

现在要用表a的数据 覆盖表b的前10列。

 

按钮代码应该怎么写？谢谢！！
--  作者：狐狸爸爸
--  发布时间：2012/7/20 9:46:00
--  

Dim nms() as String  = {"姓名","列2","列3","年龄","地址"}

For i as integetr = 0 To DataTables("a").DataRows.Count - 1

    Dim r1 As Datarow = DataTables("a").DataRows(i)

    Dim r2 As Datarow = DataTables("b").DataRows(i)

    For each nm AS string in nms

        r2(nm) = r1(nm)

    Next

Next

 

 不过没有人这样设计系统的
--  作者：jinzhengbe
--  发布时间：2012/7/21 6:54:00
--  为什么呢？有什么替换的方法么？
如题