主题：覆盖表

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

 

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