[浏览完整版]
标题：关于逻辑列的代码。
1楼
布莱克朱 发表于：2011/10/27 22:52:00Dim T As String = e.form.Controls("ComboBox1").Value
dim dr as datarow =dataTables("授权表").Find("姓名 ='" & t & "'")
If dr IsNot Nothing then
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd=tr.Nodes.Add(dr("打开"),dr("打开"))
nd=tr.Nodes.Add(dr("修改"),dr("修改"))
nd=tr.Nodes.Add(dr("设置"),dr("设置"))
end if
这个代码有什么问题,可以跟着组合框名字显示节点,但是出来的目录树节点的标题为false,而不是打开,设置以及修改
另外我开启了复选框,还不能勾选.
是什么问题?怎么修改.
2楼
czy 发表于：2011/10/27 23:18:00表中打开、修改、设置等列是逻辑型吧？
3楼
blackzhu 发表于：2011/10/28 7:51:00对的,怎么改?
4楼
狐狸爸爸 发表于：2011/10/28 8:02:00IIF(dr("打开"),"开","关")
5楼
blackzhu 发表于：2011/10/28 8:13:00什么意思?
6楼
blackzhu 发表于：2011/10/28 8:14:00是目录树,这个不会修改!
7楼
狐狸爸爸 发表于：2011/10/28 8:21:00看来我没有明白你的问题。
具体一点吧。
[此贴子已经被作者于2011-10-28 8:21:31编辑过]
8楼
blackzhu 发表于：2011/10/28 8:29:00上次yang版做的目录树权限,我想做一个不用过渡表的,但是做到在组合框下拉名字的时候,我用的是上面的那个代码,但是不行.我想应该是怎么改这个代码?
9楼
blackzhu 发表于：2011/10/28 8:31:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树权限.table |
10楼
狐狸爸爸 发表于：2011/10/28 8:44:00关于不用过渡表的多级权限管理，以后我会在帮助提供一个例子。
你这个问题比较多，不太好改，只能大概：
Dim T As String = e.form.Controls("ComboBox1").Value
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dr As DataRow =DataTables("授权表").Find("姓名 ='" & t & "'")
If dr IsNot Nothing Then
trv.nodes("设置").checked = dr("设置")
trv.nodes("修改").checked = dr("修改")
trv.nodes("打开").checked = dr("打开")
End If
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目170.table |
还有AfterChekcNode这样的事件，应该用e.Node，而不是SelectedNode，这样才严谨的。
[此贴子已经被作者于2011-10-28 8:45:21编辑过]