主题：导入数据

从表A导入相同的字段到表B, 导入按钮的代码为：

 For Each r1 As Row In Tables("导入窗口_表A").GetCheckedRows
        Dim  r2 As Row = Tables("表B主表").AddNew
        r2("列1") = r1("列1")
        r2("列2") = r1("列2")
        r2("列3") = r1("列3")
        r2("列4") = r1("列4")
        r2("列5") = r1("列5")
    Next

问题1：如何使导入的各列不能编辑，表A的各列数据变化，导入的各列也同步更新？

问题2. 如何在空表列导入表A的数据