Foxtable(狐表)用户栏目专家坐堂 → 目录树多种显示


  共有1565人关注过本帖树形打印复制链接

主题:目录树多种显示

帅哥哟,离线,有人找我吗?
15666282205
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:540 积分:4275 威望:0 精华:0 注册:2019/1/13 10:12:00
目录树多种显示  发帖心情 Post By:2024/7/8 10:59:00 [只看该作者]

老师,目录树首先按“类别“显示,点击节点显示表的内容,现在加了一个按钮,转换为按日期显示,可是点击节点的代码就报错了。怎么设置一下,如果原来的代码不能运行,则运行另一组代码,请您指导,下面是两组代码,要解决怎么自动转换的问题。

按“类别”选择的代码:

Dim Filter As String = ""
If e.node.Name <> "所有行" Then '要用Name属性,不能用Text属性
    
    Dim Product1 As String = e.Node.DataRow("状态")
    Dim Product2 As String = e.Node.DataRow("类别")
    
    Select Case e.Node.Level
        Case 0
            Filter = "[类别] = '" & e.Node.DataRow("类别") & "'"
        Case 1
            Filter = "[类别] = '" & e.Node.DataRow("类别") & "'And 状态 = '" & Product1 & "'"
            
    End Select
End If
DataTables("生产计划表").LoadFilter = Filter
DataTables("生产计划表").Load()

如果上面的代码不能正常运行,则运行下面的代码。下面是按日期选择的代码(不全,代表实际的代码):
''------------------------------------筛选树(按日期)-------------------------------------------------------------------------------
'Dim Filter As String = ""
'If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性
'Dim d1 As Date
'Dim d2 As Date
'Dim Year As Integer = e.Node.DataRow("年")
'Dim Month As Integer = e.Node.DataRow("月")
'Dim day As Integer = e.Node.DataRow("日")
'Dim Product As String = e.Node.DataRow("购买单位")


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/8 11:33:00 [只看该作者]

增加一个全局变量区分,按类别显示时,给变量赋值“类别”,按日期显示时,给变量赋值“日期”,然后目录树点击事件

Dim Filter As String = ""
if vars("某变量") = "类别" then
调用上面第一段使用类别的代码
else
调用上面第二段使用时间的代码
end if

 回到顶部
帅哥哟,离线,有人找我吗?
15666282205
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:540 积分:4275 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2024/7/8 12:43:00 [只看该作者]

老师,这个地方我不大明白:if vars("某变量") = "类别" then,是什么意思?我搜了帮助也没看明白,麻烦您说说好吗?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/8 13:35:00 [只看该作者]

vars就是全局变量:http://www.foxtable.com/webhelp/topics/0325.htm

按类别显示时,给变量赋值“类别”,按日期显示时,给变量赋值“日期”
if vars("某变量") = "类别" then表示如果变量为"类别",说明目录树是按类别分类的

 回到顶部
帅哥哟,离线,有人找我吗?
15666282205
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:540 积分:4275 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2024/7/8 14:28:00 [只看该作者]

会了,谢谢


 回到顶部