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取值权限名不变化。
Select Case e.DataCol.Name
Case "角色ID","权限ID"
Dim s As String = e.DataRow("角色ID")
Dim dr1 As DataRow = DataTables("角色").Find("角色ID = " & e.DataRow("角色ID"))
If dr1 IsNot Nothing Then
s = s & dr1("角色名") & "_"
else
e.DataRow("角色权限描述") = ""
End If
Dim dr2 As DataRow = DataTables("权限").Find("权限ID = " & e.DataRow("权限ID"))
If dr2 IsNot Nothing Then
e.DataRow("角色权限描述") = s & dr2("权限名")
End If
End Select
其中不允许为空值。
加好友 
发短信
Post By：2020/3/1 8:50:00 [只看该作者]
此主题相关图片如下：20200302095614.png
