- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口table目录树筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121033)
-- 发布时间：2018/6/27 19:21:00
-- [求助]窗口table目录树筛选
写在目录树窗口AfterLoad事件，根据条件进行筛选，为什么下拉目录树是空白的
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If Forms("工厂无损录入主界面").Opened Then
Dim xl As WinForm.RadioButton = Forms("工厂无损录入主界面").Controls("类别_下料")
If Forms("工厂无损录入主界面").Controls("类别_下料").Checked
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = \'下料 \'", "序号 DESC")
ElseIf Forms("工厂无损录入主界面").Controls("类别_常规构件").Checked
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = \' 常规构件 \'", "序号 DESC")
ElseIf Forms("工厂无损录入主界面").Controls("类别_桥梁").Checked
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = \'桥梁\' ", "序号 DESC")
End If
End If
-- 发布时间：2018/6/27 20:17:00
--
条件那里，不能有多余空格
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If Forms("工厂无损录入主界面").Opened Then
msgbox(1)
Dim xl As WinForm.RadioButton = Forms("工厂无损录入主界面").Controls("类别_下料")
If Forms("工厂无损录入主界面").Controls("类别_下料").Checked
msgbox(2)
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = \'下料\'", "序号 DESC")
ElseIf Forms("工厂无损录入主界面").Controls("类别_常规构件").Checked
msgbox(3)
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = \' 常规构件\'", "序号 DESC")
ElseIf Forms("工厂无损录入主界面").Controls("类别_桥梁").Checked
msgbox(4)
trv.BuildTree("无损_检测部位接头形式","检测部位|接头形式", "适用类型 = \'桥梁\' ", "序号 DESC")
End If
End If
[此贴子已经被作者于2018/6/27 20:17:26编辑过]
-- 发布时间：2018/6/27 20:56:00
-- 回复：（有点甜）条件那里，不能有多余空格 ...
去掉空格会显示了，但是条件就像没有设置一样
-- 发布时间：2018/6/27 21:59:00
--
以下是引用紫色幽魂在2018/6/27 20:56:00的发言：
去掉空格会显示了，但是条件就像没有设置一样
去掉空格会显示了，但是条件就像没有设置一样
做个例子发上来测试
-- 发布时间：2018/6/28 9:47:00
-- 回复：（有点甜）以下是引用紫色幽魂在2018/6/27 20:5...
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:无损检测1.table |
问题1：我又发现一个问题，我选择单选框的时候增加会在类别列自动填入这个单选框选择的名称，前面第1和第二个都可以正常，选择第三个的时候类别会增加第一个的类别，是怎么回事儿了
问题2：下拉窗口目录树不会根据单选框选择的项目进行筛选，还有如果我将代码写入窗口AfterLoad事件里面，如果选择别的单选框这个筛选的条件值是不是不会变
此主题相关图片如下：2.jpg
-- 发布时间：2018/6/28 9:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:无损检测1.table |
-- 发布时间：2018/6/28 11:12:00
-- 回复：（有点甜）[upload=table,无损检测1.table]view...
请问下是改了哪些地方呢
-- 发布时间：2018/6/28 11:18:00
--
1、datacolchanged事件；
2、代码改写到DropDownOpening事件。
-- 发布时间：2018/6/28 11:58:00
-- 回复：（有点甜）1、datacolchanged事件； 2...
谢谢
再请教一个问题，我想在写入的时候第几根构件不管下面选择了多少行，都是写入按钮点击前的这个数值，但是在实际写入的时候下面选择了多行，那么每一行都会增加1，这个要怎么解决
此主题相关图片如下：11.jpg
-- 发布时间：2018/6/28 13:29:00
--
1、你写了什么代码？
2、你希望执行的代码做到什么效果？