以文本方式查看主题

-  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、你希望执行的代码做到什么效果?