- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求解决加载树的错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119580)
-- 发布时间：2018/5/28 8:04:00
-- [求助]求解决加载树的错误
此主题相关图片如下：qq截图20180528075622.jpg
此主题相关图片如下：qq截图20180528075643.jpg
-- 发布时间：2018/5/28 8:07:00
--
怎么论坛不能贴代码了
-- 发布时间：2018/5/28 8:09:00
--
此主题相关图片如下：qq截图20180528080828.jpg
此主题相关图片如下：qq截图20180528080723.jpg
我还想增加不同分支公司人员登录后加载不同的数据权限功能，求代码怎么写
-- 发布时间：2018/5/28 8:11:00
--
加载树代码
Dim Filter As String
If e.node.Text = "加载所有数据" Then
Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow
Select Case e.Node.Level
Case 0
Filter ="[年度] = \'" & dr("年度") & "\'"
Case 1
Filter ="[年度] = \'" & dr("年度") & "\' And [分支公司] = \'" & dr("分支公司") & "\'"
Case 2
Filter ="[年度] = \'" & dr("年度") & "\' And [分支公司] = \'" & dr("分支公司") & "\' And [项目类别] = \'" & dr("项目类别") & "\'"
Case 3
Filter ="[年度] = \'" & dr("年度") & "\' And [分支公司] = \'" & dr("分支公司") & "\' And [项目类别] = \'" & dr("项目类别") & "\' And [项目名称] = \'" & dr("项目名称") & "\'"
End Select
End If
With DataTables("项目决算资金拨付表")
.LoadFilter = Filter \'设置加载条件
.LoadPage = 0 \'加载第一页
.LoadTop = 5 \'每页5行
.Load()
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With
-- 发布时间：2018/5/28 8:24:00
--
此主题相关图片如下：qq截图20180528082046.jpg
-- 发布时间：2018/5/28 8:42:00
--
1、看看你数据库，有没有这个表【项目决算资金拨付表】，必须存在这个表才可以的。
如果没有，请添加 http://www.foxtable.com/webhelp/scr/1812.htm
2、权限问题，看看 http://www.foxtable.com/webhelp/scr/2256.htm
-- 发布时间：2018/5/28 8:46:00
--
好的
[此贴子已经被作者于2018/5/28 8:46:50编辑过]
-- 发布时间：2018/5/28 9:06:00
--
加载树窗口已正常，还是我外部数据库和和内部的表名称不一致的问题
外部表设置了加载条件，但有错误
-- 发布时间：2018/5/28 9:06:00
--
此主题相关图片如下：qq截图20180528090334.jpg
-- 发布时间：2018/5/28 10:09:00
--
以下是引用qctv在2018/5/28 9:06:00的发言：
加载树窗口已正常，还是我外部数据库和和内部的表名称不一致的问题
加载树窗口已正常，还是我外部数据库和和内部的表名称不一致的问题
外部表设置了加载条件，但有错误
代码写到LoadUserSetting或者AfterOpenProject事件的，不是写到【过滤/排序】那里。