以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树单击节点事件代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5632)

--  作者:老有所乐
--  发布时间:2009/12/24 22:25:00
--  目录树单击节点事件代码问题
Dim s As String = e.Node.FullPath  \'返回选定节点路径
Dim V as String()
 v =s.split("\\")    \'分割字符串的字符
\'筛选数据列表
Dim dst As WinForm.DataList = e.Form.Controls("DataList1") 
dst.RowFilter = "[组名] = \'"& v(0) & "\'" \'返回选定节点路径分割/的第一个字符
dst.Build()
\'将选定的用户名与分组显示在文本框
if e.Node.Level= 1 Then 
e.Form.Controls("TextBox1").Value= e.Node.Text
Vars("用户")= e.Node.Text
Else
e.Form.Controls("TextBox1").Value= ""
Vars("用户")=""
End If
e.Form.Controls("ComboBox1").Value= v(0)
Vars("组") = v(0)

(补充说明:上面代码是ylm版主自定义登陆例子用户表用户管理窗口的目录树单击节点后执行事件代码)

较早版本窗口有Datalist ,上面是目录树单击节点后执行事件代码,我用12月11日版本没有Datalist,而是Table,现用Table替换Datalist ,上面代码应该如何修改,其效果和以前一样。请老师指点,谢谢!
[此贴子已经被作者于2009-12-24 23:21:05编辑过]

--  作者:czy
--  发布时间:2009/12/25 0:07:00
--  
上面代码涉及DataList只有将符合条件的行加载到DataList中。
上面涉及DataList的全部删除,然后改成下面这样试试:

Tables("用户权限").Filter = "[组名] = \'"& v(0) & "\'"
--  作者:老有所乐
--  发布时间:2009/12/25 11:32:00
--  

谢谢Czy版主!