主题：[求助]按钮跨表引用问题？

 是引用，还是填充？

 

 填充，参考 http://www.foxtable.com/help/topics/0680.htm

 

 引用的话，参考代码

 

 For Each dr As DataRow In DataTables("表B").DataRows
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & dr("第一列") & "'")
    If fdr IsNot Nothing Then
        dr("第二列") = fdr("第二列")
        dr("第三列") = fdr("第三列")
    End If
Next

Dim nmc() As String = {"身份证号","姓名","性别","年龄","标识","县"} 'A表数据来源列
Dim nmd() As String = {"身份证号","姓名","性别","年龄","标识","县"} 'B表数据接收列
For Each dra As DataRow In DataTables("名单").DataRows
    Dim drc As Row = Tables("疾病证明书").AddNew
    For i As Integer = 0 To nmc.Length - 1
        drc(nmd(i)) = dra(nmc(i))
    Next
Next

 只有引用全部列，而且全部列相同，才能不写列名。

For Each dra As DataRow In DataTables("名单").DataRows
    Dim drc As Row = Tables("报销名单").AddNew
    For Each dc As DataCol In DataTables("名单").DataCols
        drc(dc.name) = dra(dc.name)
    Next
Next