- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 目录树节点选择后，怎么在窗口的文本框中也能看的见 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75894)
-- 发布时间：2015/10/16 19:59:00
-- 目录树节点选择后，怎么在窗口的文本框中也能看的见
大红袍老师：昨天你给我的实例，我好好看了一下，今天用了几乎一天时间学习，把登录窗口做了改变，是外部数据源，没办法让你作评价，发一张截图。
遇到两个问题：
1.密码如何修改
2.节点选择后，怎么在窗口的文本框中也能看的见，前面学到的知识，在这里不会用。
此主题相关图片如下：(5(tjxz615xbiw5`0r8ppk.png
需要帮助的实例如下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目41.foxdb |
-- 发布时间：2015/10/17 9:23:00
--
1. 改密码参考http://www.foxtable.com/help/topics/2945.htm
2.参考http://www.foxtable.com/help/topics/2405.htm
http://www.foxtable.com/help/topics/2436.htm
-- 发布时间：2015/10/17 17:39:00
--
这是我做的实例，
大师们帮我完善一下，数据源搞得也不知道对不对
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:用户管理.rar |
-- 发布时间：2015/10/17 17:51:00
--
此主题相关图片如下：4gvo$~1q}$i426zl@(4~x~d.jpg
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[工作单位] = \'" & dr("工作单位") & "\'"
Case 1
Filter = "[工作单位] = \'" & dr("工作单位") & "\' And [所在部门] = \'" & dr("所在部门") & "\'"
Case 2
Filter = "[工作单位] = \'" & dr("工作单位") & "\' And [所在部门] = \'" & dr("所在部门") & "\' And [用户] = \'" & dr("用户") & "\'"
End Select
End If
Tables("users").Filter = Filter
-- 发布时间：2015/10/17 17:58:00
--
users没有用户列
-- 发布时间：2015/10/17 18:27:00
--
这问题已解决，代码没问题，是我粗心，把name写成了用户