主题：在表B中查找身份证相同行，并复制。

在表A的身份证号列输入一个身份证号，在表B中查找身份证号相同的行，如果查到的话，把该行相应地复制到表A（输入身份证的这行）。如果查不到，退出程序。

请问下面的命令如何修改？

If e.DataCol.Name = "身份证号" AndAlso e.DataRow("身份证号") = True Then

find ("身份证号=&e.DateRow("身份证号码"&'''') IsNot Nothing Then
    Dim nma() As String = {"B1","B2","B3","B4"} 'A表数据来源列
    Dim nmb() As String = {"A1","A2","A3","A4"} 'B表数据接收列
    Dim dr As DataRow = DataTables("表A").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

If e.DataCol.Name = "身份证号" AndAlso e.DataRow isnull("身份证号码") = False Then

Dim dr As DataRow = DataTables("表B").find ("身份证号= '" & e.DateRow("身份证号码") & "'")

If dr IsNot Nothing Then

    Dim nma() As String = {"B1","B2","B3","B4"} 'A表数据来源列
    Dim nmb() As String = {"A1","A2","A3","A4"} 'B表数据接收列
    For i As Integer = 0 To nma.Length - 1
        e.DataRow(nma(i)) = dr(nmb(i))

    Next

End If
End If

If e.DataCol.Name = "身份证号" AndAlso e.DataRow.isnull("身份证号码") = False Then

Dim dr As DataRow = DataTables("表B").find ("身份证号= '" & e.DateRow("身份证号码") & "'")

If dr IsNot Nothing Then

    Dim nma() As String = {"B1","B2","B3","B4"} 'A表数据来源列
    Dim nmb() As String = {"A1","A2","A3","A4"} 'B表数据接收列
    For i As Integer = 0 To nma.Length - 1
        e.DataRow(nma(i)) = dr(nmb(i))

    Next

End If
End If