[求助]逻辑列如何保存到集合中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我知道是红色区域代码有问题，但不知道怎么修改，求指教，谢谢

这是一个保存按钮里面的代码，其中需要的权限列是逻辑列

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("加载范围")

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("权限")

dr("授权集合") = sqjh1.TrimStart(",")

Tables("角色管理").Current.Save() '保存当前行

End If

e.Form.Close()

Dim drs1 As List(Of DataRow) = DataTables("授权").Select("权限 = true")

改了还是不对，麻烦老师帮我改一下，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:角色授权.foxdb

红色代码是想实现将授权表的授权列选中的集合到角色管理的授权管理里面，但授权是逻辑列，也不会举一反三了，望老师指点迷津

此主题相关图片如下：777.png

此主题相关图片如下：778.png

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

fwjh &= "," & r("权限") & "|" & r("加载范围")

dr("加载范围集合") = fwjh.TrimStart(",")

Dim drs1 As List(Of DataRow) = DataTables("授权").Select("授权 = true")

If drs1.Count > 0 Then

For Each r As DataRow In drs1

sqjh &= "," & r("权限")

dr("授权集合") = sqjh.TrimStart(",")

Tables("角色管理").Current.Save() '保存当前行

End If

'将新的角色权限更新至用户管理表里面

For Each drss As DataRow In DataTables("角色管理").DataRows

DataTables("用户管理").ReplaceFor("加载范围集合", drss("加载范围集合"), "group = '" & drss("角色名称") & "'")

DataTables("用户管理").ReplaceFor("授权集合", drss("授权集合"), "group = '" & drss("角色名称") & "'")

'---信息提示开始----

'_newp = "角色[更新]成功"

'Forms("透明窗口").show

'Return

'---信息提示结束---

' e.Form.Close()

主题：[求助]逻辑列如何保存到集合中