主题：[求助]如何根据两列跨表取值赋值？

Dim s1,s2,s3 As String

If e.DataCol.Name = "角色ID" Then '如果内容发生变动的是角色ID

    Dim dr1 As DataRow

    If e.DataRow.IsNull("角色ID") And  e.DataRow.IsNull("权限ID")  Then '如果新值是空白,也就是角色ID列的内容为空

        e.DataRow("角色权限描述") = Nothing '那么清空此行角色权限描述的内容

    Else

        '否则在角色表查找同名的角色ID行,将找到的行赋值给变量dr1

        dr1 = DataTables("角色").Find("[角色ID] = '" & e.NewValue & "'")

        If dr1 IsNot Nothing Then '如果找到了同名的角色ID行,也就是dr不是Nothing

            e.DataRow("角色权限描述") = dr1("角色名") & s1 & "_"

            s1 = e.DataRow("角色权限描述")

        End If

    End If

End If

If  e.DataCol.Name = "权限ID" Then

    If  e.DataCol.Name = "角色ID" And e.DataRow.IsNull("权限ID")   Then '如果内容发生变动的是权限ID

        If e.NewValue Is Nothing Then '如果新值是空白,也就是角色ID列的内容为空

            s1 = e.DataRow("角色权限描述") '那么清空此行角色权限描述的内容

            e.DataRow("角色权限描述") = Nothing

        End If

    Else

        Dim dr2 As DataRow

        '否则在角色表查找同名的角色ID行,将找到的行赋值给变量dr

        dr2 = DataTables("权限").Find("[权限ID] = '" & e.NewValue & "'")

        If dr2 IsNot Nothing Then '如果找到了同名的角色ID行,也就是dr不是Nothing

            s2 = dr2("权限名")

            e.DataRow("角色权限描述") = s1 & s2

        End If

    End If

End If

权限ID取值权限名不变化。