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

Select Case e.DataCol.Name

    Case  "角色ID","权限ID"

        Dim dr1 As DataRow = DataTables("角色").Find("角色ID = " & e.DataRow("角色ID"))

        Dim dr2 As DataRow = DataTables("权限").Find("权限ID = " & e.DataRow("权限ID"))

        If dr1 Is Nothing And dr2 Is Nothing Then  '如果两个都不存在

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

        Else '否则

            Dim s As String = e.DataRow("角色ID")

            If dr1 IsNot Nothing Then  '如果角色不存在

                s  = s & dr2("权限名")

            ElseIf dr2 Is Nothing  '如果权限名不存在

                s = s &  dr1("角色名") & "_"

            Else '剩下就是两个都存在

                s = s &  dr1("角色名") & "_" & dr2("权限名")

            End If

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

        End If

End Select