主题：表与表间的数据引用问题求指教？

 参考

Dim nma() As String = {"A1","A2","A3","A4"}
Dim nmb() As String = {"B1","B2","B3","B4"}
Dim dr As DataRow = DataTables("报名登记表").Find("[身份证号码] = '" & e.NewValue & "'")

For i As Integer = 0 To nma.Length - 1
    e.DataRow(nma(i)) = dr(nmb(i))
Next

  用代码填充身份证进去

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

 回复17楼

Dim Result As DialogResult
Result = MessageBox.Show("确定导出?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question,MessageBoxDefaultButton.Button2)
Dim Cols1() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","备注","照片","是否合格","理论考否"}
Dim Cols2() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","鉴定等级","申报鉴定工种","鉴定批次","申报性质","备注","照片","是否合格","理论考否"}
For Each dr1 As DataRow In DataTables("报名登记表").Select("[是否合格] = True ")
    Dim dr2 As DataRow = DataTables("审核合格表").Find("身份证号码 = '" & dr1("身份证号码") & "'")
    If dr2 Is Nothing Then
        dr2 = DataTables("审核合格表").AddNew
    End If
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

逻辑列只有两种。如果有多种情况，请设置成字符列。