主题：[求助]根据单元格值在其他表找到所在的列名

参考 http://www.foxtable.com/webhelp/scr/2965.htm

If e.DataCol.Name = "被通知人" Then
    Dim dr1 = e.DataRow
    Dim dr2 As DataRow = DataTables("数据表").find("案号 = '" & e.DataRow("案号") & "' and 原告 like '%" & dr1("被通知人") & "%'")
    If dr2 IsNot Nothing Then
        dr1("诉讼地位") = "原告"
    End If
    Dim dr3 As DataRow = DataTables("数据表").find("案号 = '" & e.DataRow("案号") & "' and 被告 like '%" & dr1("被通知人") & "%'")
    If dr3 IsNot Nothing Then
        dr1("诉讼地位") = "被告"
    End If
    Dim dr4 As DataRow =DataTables("数据表").find("案号 = '" & e.DataRow("案号") & "' and 第三人 like '%" & dr1("被通知人") & "%'")
    If dr4 IsNot Nothing Then
        dr1("诉讼地位") = "第三人"
    End If
End If