主题：[求助]跨表引用不起作用

正确代码：

If e.DataCol.Name = "身份证号" Then
    If e.NewValue Is Nothing Then 
        e.DataRow("数据列") = Nothing 
    Else
        Dim dr As DataRow
        dr = DataTables("已寄出").Find("[身份证号] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then
            e.DataRow("数据列") = dr("数据列")
        End If
    End If
End If

设置完整后，重置一下身份证号码列。