我知道是红色区域代码有问题，但不知道怎么修改，求指教，谢谢
这是一个保存按钮里面的代码，其中需要的权限列是逻辑列
Dim dr As Row = Tables("角色管理").Current
If dr Is Nothing Then Return
Dim drs As List(Of DataRow) = DataTables("授权").Select("加载范围 is not null")
If drs.Count > 0 Then
Dim sqjh As String
Dim fwjh As String
For Each r As DataRow In drs
sqjh &= "," & r("权限")
fwjh &= "," & r("权限") & "|" & r("加载范围")
Next
dr("加载范围集合") = fwjh.TrimStart(",")
Dim drs1 As List(Of DataRow) = DataTables("授权").Select("权限 = 'true'")
If drs1.Count > 0 Then
Dim sqjh1 As String
For Each r As DataRow In drs1
sqjh1 &= "," & r("权限")
Next
dr("授权集合") = sqjh1.TrimStart(",")
Tables("角色管理").Current.Save() '保存当前行
End If
End If
e.Form.Close()
加好友 
发短信
Post By：2016/8/30 14:33:00 [显示全部帖子]
此主题相关图片如下：777.png
