Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口table目录树筛选


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

主题：[求助]窗口table目录树筛选
帅哥哟，离线，有人找我吗？
紫色幽魂
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		[求助]窗口table目录树筛选  发帖心情 Post By：2018/6/27 19:21:00 [显示全部帖子]

写在目录树窗口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
 回到顶部
帅哥哟，离线，有人找我吗？
紫色幽魂
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		回复：（有点甜）条件那里，不能有多余空格 ...  发帖心情 Post By：2018/6/27 20:56:00 [显示全部帖子]

去掉空格会显示了，但是条件就像没有设置一样

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


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		回复：（有点甜）以下是引用紫色幽魂在2018/6/27 20:5...  发帖心情 Post By：2018/6/28 9:47:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:无损检测1.table

问题1：我又发现一个问题，我选择单选框的时候增加会在类别列自动填入这个单选框选择的名称，前面第1和第二个都可以正常，选择第三个的时候类别会增加第一个的类别，是怎么回事儿了
问题2：下拉窗口目录树不会根据单选框选择的项目进行筛选，还有如果我将代码写入窗口AfterLoad事件里面，如果选择别的单选框这个筛选的条件值是不是不会变

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
紫色幽魂
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		回复：（有点甜）[upload=table,无损检测1.table]view...  发帖心情 Post By：2018/6/28 11:12:00 [显示全部帖子]

请问下是改了哪些地方呢

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


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		回复：（有点甜）1、datacolchanged事件； 2...  发帖心情 Post By：2018/6/28 11:58:00 [显示全部帖子]

谢谢
再请教一个问题，我想在写入的时候第几根构件不管下面选择了多少行，都是写入按钮点击前的这个数值，但是在实际写入的时候下面选择了多行，那么每一行都会增加1，这个要怎么解决

图片点击可在新窗口打开查看此主题相关图片如下：11.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
紫色幽魂
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00 		回复：（有点甜）1、你写了什么代码？ 2、你...  发帖心情 Post By：2018/6/28 14:04:00 [显示全部帖子]

已检构件数绑定到关联表的父表中的一列，获取这个子表中的最大值，这一个按钮的ValueChanged事件里写入代码，希望我再点击写入按钮增加这根构件明细表的时候下表所选中的行都是作为旁边的这个第几根构件的明细，如果第几根构件数是2，下面表选择了3行，这三行在写入的明细表的时候这一列的每一行都是2，但是在实际写入的时候第1行数值是2，第二行就是3，第三行就是4，第三次选择这个构件再次点击写入明细表的时候，这个数值就是3

Dim yjgj As WinForm.TextBox = e.Form.Controls("已检构件")
Dim djg As WinForm.NumericComboBox = e.Form.Controls("第几根构件")
If yjgj.Value >= 0 Then
    djg.Value = e.Form.Controls("已检构件").Value + 1 
Else
    djg.Value = 1
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05096 秒, 6 次数据查询