[求助]角色管理的TRUE 赋值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim DRS1 As List (OF DataRow)
Dim r As DataRow
Select e.DataCol.Name
    Case "group"
        If e.NewValue <> Nothing Then

            Dim fdr As DataRow = DataTables("角色管理").Find("角色 = '" & e.NewValue & "'")
            If fdr IsNot Nothing Then
                fdr("使用")=True
            End If
        End If
        If e.OldValue <> Nothing Then
            Dim fdr As DataRow = DataTables("角色管理").Find("角色 = '" & e.OldValue & "'")
            If fdr IsNot Nothing Then
                If e.DataTable.Find("group = '" & e.OldValue & "'") Is Nothing Then
                    fdr("使用")=False
                End If
            End If
        End If

End Select

主题：[求助]角色管理的TRUE 赋值