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

 参考

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