主题：资料复制

 参考

http://www.foxtable.com/help/topics/2292.htm

表B的datacolchanged事件，写入代码

If e.DataCol.Name = "同表a资料" AndAlso e.DataRow("同表a资料") = True Then
    Dim fdr As DataRow = e.DataRow.GetParentRow("表A")
    If fdr IsNot Nothing
        Dim nma() As String = {"姓名","性别","身份证","手机","单位名称"} 'A表数据来源列
        Dim nmb() As String = {"姓名","性别","身份证","手机","单位名称"} 'B表数据接收列
       
        For i As Integer = 0 To nma.Length - 1
            e.DataRow(nmb(i)) = fdr(nma(i))
        Next
    End If
End If