- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于逻辑列的代码。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13799)
-- 发布时间：2011/10/27 22:52:00
-- 关于逻辑列的代码。
Dim 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,而不是打开,设置以及修改
另外我开启了复选框,还不能勾选.
是什么问题?怎么修改.
-- 发布时间：2011/10/27 23:18:00
--
表中打开、修改、设置等列是逻辑型吧？
-- 发布时间：2011/10/28 7:51:00
--
对的,怎么改?
-- 发布时间：2011/10/28 8:02:00
--
IIF(dr("打开"),"开","关")
-- 发布时间：2011/10/28 8:13:00
--
什么意思?
-- 发布时间：2011/10/28 8:14:00
--
是目录树,这个不会修改!
-- 发布时间：2011/10/28 8:21:00
--
看来我没有明白你的问题。
具体一点吧。
[此贴子已经被作者于2011-10-28 8:21:31编辑过]
-- 发布时间：2011/10/28 8:29:00
--
上次yang版做的目录树权限,我想做一个不用过渡表的,但是做到在组合框下拉名字的时候,我用的是上面的那个代码,但是不行.我想应该是怎么改这个代码?
-- 发布时间：2011/10/28 8:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树权限.table |
-- 发布时间：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编辑过]