Foxtable(狐表) → 用户栏目 → 专家坐堂 → DropDownForm窗口类型自动隐藏某列


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

主题：DropDownForm窗口类型自动隐藏某列
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		DropDownForm窗口类型自动隐藏某列  发帖心情 Post By：2017/9/28 10:42:00 [显示全部帖子]

DropDownForm窗口类型的窗口中，如何自动隐藏绑定表的某列，即有一逻辑列名为【停用】，如果【停用】选中，则在加载DropDownForm窗口类型绑定的表中不显示【停用】选中的数据（行）。
注：绑定的表名为：表A
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/9/28 10:48:00 [显示全部帖子]

在DropDownForm窗口afterload事件中写入一下代码：
Tables("窗口_Table1").Filter = "停用=false"
不起作用。
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/9/28 10:59:00 [显示全部帖子]

万分感谢

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


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/9/28 11:07:00 [显示全部帖子]

代码写在哪个地方？
'Tables("窗口_Table1").Filter = "停用=false"
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口_Table1")
If txt = "" Then
    tbl.Filter = "" & "停用=false"
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "简称 Like " & txt & " Or 简码 Like " & txt & " Or 组件名称 Like " & txt & " Or 生产企业 Like " & txt 
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
[此贴子已经被作者于2017/9/28 11:06:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/11/8 20:32:00 [显示全部帖子]


老师好： 还是得麻烦你们帮解答了，之前你给我的代码我写进入提示错误。
如下图
图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg
图片点击可在新窗口打开查看
我想要的结果如下图；
图片点击可在新窗口打开查看此主题相关图片如下：image 2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/11/8 20:35:00 [显示全部帖子]

我上传一个例子给你们，望老师百忙之中抽个时间帮帮忙
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/11/8 20:40:00 [显示全部帖子]

秒回复 真是反应速度超快  但还是不行  错误的提示没有了，但是还是不隐藏停用列中已勾选的行
[此贴子已经被作者于2017/11/8 20:42:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/11/8 20:44:00 [显示全部帖子]

我传有例子上去了

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


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/11/8 20:53:00 [显示全部帖子]

搞定了 还要在订单表的ChangeEdit出改代码：If e.Col.Name = "编码" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As Table = Tables("窗口1_Table1") 
        If e.Text = "" Then '如果内容为空
            tbl.Filter = "停用=false" '显示所有客户
        Else '否则根据输入内容进行模糊筛选
            Dim txt As String = "'%" & e.Text & "%'"
            tbl.Filter = "停用=false and (编码 Like " & txt & " Or 名称 Like " & txt & " Or 产地 Like " & txt &")"
        End If
    End If
End If
谢了 老师  祝老师工作顺利
 回到顶部
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7903 威望：0 精华：0 注册：2016/6/11 11:10:00 		  发帖心情 Post By：2017/11/8 20:54:00 [显示全部帖子]

谢谢啦

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询