主题：覆盖表

表a 有10列

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

 

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

 

按钮代码应该怎么写？谢谢！！

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

 

 不过没有人这样设计系统的

如题