- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]菜单全部显示按钮报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122173)
-- 发布时间：2018/7/20 10:28:00
-- [求助]菜单全部显示按钮报错
全部显示按钮代码如下，同时刷新目录树
Syscmd.Table.Load()
\'DataTables("室内设计项目").Load
Tables("室内设计项目").Filter = ""
\'1清除勾选的目录,
Dim tr As WinForm.TreeView
tr = Forms("自己的项目").Controls("TreeView1")
tr.Nodes.Clear
Forms("自己的项目").Controls("TreeView1").BuildTree("室内设计项目", "设计任务要求_项目名称|设计任务要求_项目地址")
此主题相关图片如下：报错1.png
此主题相关图片如下：报错2.png
-- 发布时间：2018/7/20 10:40:00
--
If Forms("自己的项目").Opened Then \'如果窗口已经打开
With Tables("室内设计项目")
If .Current IsNot Nothing Then
\'Syscmd.Table.Load()
Tables("室内设计项目").Filter = ""
\'1清除勾选的目录,
Dim tr As WinForm.TreeView
tr = Forms("自己的项目").Controls("TreeView1")
tr.Nodes.Clear
Forms("自己的项目").Controls("TreeView1").BuildTree("室内设计项目", "设计任务要求_项目名称|设计任务要求_项目地址")
Tables("室内设计项目").Filter = ""
Else
MessageBox.Show("没有你负责的项目")
End If
End With
End If
因为局域网数据库，要刷新同步后再显示全部，再生成目录树，下面加载表的代码放在那个位置呢？放在上面嗲吗的最前面就可以了吗？
Syscmd.Table.Load()
[此贴子已经被作者于2018/7/20 10:44:35编辑过]
-- 发布时间：2018/7/20 10:47:00
--
加载，参考
http://www.foxtable.com/webhelp/scr/1928.htm
-- 发布时间：2018/7/20 10:50:00
-- 回复：（有点甜）加载，参考?http://www.fox...
那这样对不对：
DataTables("室内设计项目").Load \'先加载同步，再全部显示，最后重新生成目录树
With Tables("室内设计项目")
If .Current IsNot Nothing Then
\'Syscmd.Table.Load()
Tables("室内设计项目").Filter = ""
\'1清除勾选的目录,
Dim tr As WinForm.TreeView
tr = Forms("自己的项目").Controls("TreeView1")
tr.Nodes.Clear
\'多列,生成目录树
Forms("自己的项目").Controls("TreeView1").BuildTree("室内设计项目", "设计任务要求_项目名称|设计任务要求_项目地址")
Tables("室内设计项目").Filter = ""
Else
MessageBox.Show("没有你负责的项目")
End If
End With
End If
[此贴子已经被作者于2018/7/20 10:50:34编辑过]
-- 发布时间：2018/7/20 11:02:00
--
1、msgbox(DataTables("室内设计项目").LoadFilter)弹出什么？
2、你表格的beforeLoad、afterLoad事件是否写了什么代码？
-- 发布时间：2018/7/20 11:44:00
-- 回复：（有点甜）1、msgbox(DataTables("室内设计项目...
重新启动，项目没报错了
ok了
[此贴子已经被作者于2018/7/20 11:53:31编辑过]