- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]角色管理的TRUE 赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70548)
-- 发布时间：2015/6/24 10:17:00
-- [求助]角色管理的TRUE 赋值
老师，
希望表A Group 列 赋值，“角色管理”的使用列自动判断是否已经使用，很简单的问题，但是我没有实现，请老师给看下。
-- 发布时间：2015/6/24 10:31:00
--
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