以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载树变量问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94775)
--  作者：xxcwdlwgo
--  发布时间：2017/1/1 19:34:00
--  加载树变量问题
加载树代码中，如何设置变量？我试了几次，报从字符串……到类型boolean的转换无效。输入字符串的格式不正确。
--  作者：狐狸爸爸
--  发布时间：2017/1/2 19:58:00
--  
提问要具体，至少要贴出代码，别人才能帮你分析。
--  作者：xxcwdlwgo
--  发布时间：2017/1/3 8:35:00
--  
Tables("gzbb_lwg").OpenloadTree("使用车站|电梯编号",,10,"使用车站 = \'" & Vars("myzz") & "\'" )
--  作者：xxcwdlwgo
--  发布时间：2017/1/3 8:41:00
--  
找到问题所在了，谢谢
--  作者：xxcwdlwgo
--  发布时间：2017/1/3 8:59:00
--  
加载树窗口出现后，点刷新按钮时，我设置的Tables("gzbb_lwg").OpenloadTree("使用车站|电梯编号",,100,,"使用车站 = \'" & Vars("myzz") & "\'" )显示是部分记录，但在刷新后把全部记录显示 了。
--  作者：有点色
--  发布时间：2017/1/3 9:05:00
--  

 你要在beforeLoad事件写控制代码

 

http://www.foxtable.com/webhelp/scr/2057.htm

 
--  作者：xxcwdlwgo
--  发布时间：2017/1/3 16:20:00
--  
在表事件中beforeLoad事件写控制代码后，启动编译后的程序，输入登录后，程序也没有报错误，程序不显示。在任务管理器里可以看到这个程序。
我重新删除这段代码后，程序可以显示。

[此贴子已经被作者于2017/1/3 16:21:37编辑过]
--  作者：有点色
--  发布时间：2017/1/3 16:31:00
--  

你代码肯定写错了。贴出你写的代码

 

参考6楼的代码来写，直接设置 e.DataTable.Filter。

 

 

 
--  作者：xxcwdlwgo
--  发布时间：2017/1/3 16:41:00
--  
    Select Case user.Group
        Case "路局管理员"

                e.DataTable.LoadFilter = "[局名]=\'" & Vars("myjm") & "\'"
                e.DataTable.Load()
 
        Case "站段管理员"
                e.DataTable.LoadFilter = "[站段名称]=\'" & Vars("myzd") & "\'"
                e.DataTable.Load()

        Case "车站管理员"
            
                e.DataTable.LoadFilter ="[使用车站]=\'" & Vars("myzz")  & "\'"
                e.DataTable.Load()


        End  Select
--  作者：有点色
--  发布时间：2017/1/3 16:47:00
--  

 这句代码，不能写

 

e.DataTable.Load()

 

 不然，会死循环的。