主题：怎样无条件自动复制

不要第一行 的逻辑关系  直接自动复制A表中的某列 复制到B表中的某列 并自动更新   怎么改下面的代码 或从新编写 （列不同）

If e.DataCol.Name = "逻辑列名" AndAlso e.DataRow("逻辑列名") = True Then
    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)) = e.DataRow(nma(i))
    Next
End If

是想要“员工信息表”中的姓名列    “与汇总表” 中的内容与顺序相同   且不重复    （就是A表第一行第一列等于 B表第二行第一列这样的关联就够了）

这是怎么做到的  求解

谢谢