Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口组合框列表代码与导航目录树节点代码


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

主题：[求助]窗口组合框列表代码与导航目录树节点代码
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/28 11:18:00 [只看该作者]

Dim filter = tbl.filter

tbl.Filter = iif(filter>"", "(" & Filter & ") AND ", "") & " 所属期间 Like " & txt
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/28 13:48:00 [只看该作者]

老师好。代码通过，能运行了。

[此贴子已经被作者于2019/4/28 19:48:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/28 14:14:00 [只看该作者]

那你就记录一下你的目录树的筛选条件

 

vars("条件") = 你点击目录树时的条件

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/28 14:44:00 [只看该作者]

老师好。可能我没有说清楚，现在的代码与目录树选择已没有关系，问题就出在 【" 所属期间 Like " & txt”】上。
[此贴子已经被作者于2019/4/28 19:49:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/28 15:29:00 [只看该作者]

1、保存你目录树的条件啊

 

vars("条件") = 你点击目录树时的条件

 

2、给filter赋值为你目录树的条件啊

 

filter = vars("条件")
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/28 16:23:00 [只看该作者]

老师好。目录树的值已传递过来，用“msgbox(Filter)” 查看值结果如下：
第一次：组合框选择“201812”时，正常。
第二次：组合框选择“201902”时，不正常。
[此贴子已经被作者于2019/4/28 19:50:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/28 16:24:00 [只看该作者]

1、保存你目录树的条件啊

 

vars("条件") = 你点击目录树时的条件

 

2、给filter赋值为你目录树的条件啊

 

filter = vars("条件")

 

3、贴出你写的代码啊
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/28 16:34:00 [只看该作者]

老师好，组合框“SelectedIndexChanged”事件全部代码.

[此贴子已经被作者于2019/4/28 19:50:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/28 16:55:00 [只看该作者]

Dim Ssqj As WinForm.ComboBox = e.Form.Controls("ComboBox1_Page13_Cx")
Dim Dhxz As String = Tables("系统管理_Table1_Page13").Filter           '声明变量(字符串),将导航目录树的当前选择节点内容赋值给变量
Dim Txt As String = Ssqj.value                '声明变量(字符串),初值为窗口控件组合框的选择
Dim Tbl As Table = Tables("系统管理_Table1_Page13")    '声明变量(表类型),初值为窗口表
If Txt = "" OrElse Txt="全部" Then
    Tbl.Filter = ""
Else
    Txt = "'*" & Txt & "*'"
    Tbl.Filter = Dhxz 
    'msgbox(Tbl.Filter)      ’查看返回值
    Tbl.Filter = vars("filter") & " And" & " 所属期间 Like " & Txt     '对符合条件内容进行筛选
    ’msgbox(Tbl.Filter)      ’查看返回值
End If
 回到顶部
帅哥哟，离线，有人找我吗？
hanzhang98
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：493 积分：3637 威望：0 精华：0 注册：2018/6/8 21:14:00 		  发帖心情 Post By：2019/4/28 17:13:00 [只看该作者]

老师好。按照老师指导，将代码修改。但问题如故。

[此贴子已经被作者于2019/4/28 19:51:41编辑过]
 回到顶部
总数 25 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询