Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 怎么用代码隐藏行呢？


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

主题：[求助] 怎么用代码隐藏行呢？
美女呀，离线，留言给我吧！
龙潭春早
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		[求助] 怎么用代码隐藏行呢？  发帖心情 Post By：2018/12/24 21:02:00 [显示全部帖子]


有些行的内容想要隐藏，怎么用代码实现呢？

[此贴子已经被作者于2018/12/24 21:03:04编辑过]
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/12/24 22:53:00 [显示全部帖子]

移除的话，倒是可以看不到这些行了。

但是，希望在改变条件的情况下，还能看到这些行。比如，点击菜单按钮，就能显示其它的行。

所以，希望在某种情况下，只是隐藏这些行，而不是移除（移除的话，再看到需要重新加载了）。

这样要怎么做呢？
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/12/24 23:02:00 [显示全部帖子]

没太明白。

蓝老师再详细讲讲。

太晚了就明天吧。
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/12/25 14:46:00 [显示全部帖子]

谢谢蓝老师，那么晚了还给回复！


想隐藏不含“酒店”数组所在的行，要怎么操作呢？

下面的代码对吗？

代码中的【 不显示该行 】部分的代码不知道怎么写了，请老师们帮个忙。

For Each dr As DataRow In DataTables("综合表").DataRows  ' 遍历 "综合表" 的数据行
    
    If dr.IsNull("应用场所") = False Then  ' 如果 "应用场所" 列不为空

        Dim plcs() As String = dr("应用场所").Split(",")  ' 将 "应用场所" 列的内容拆分成数组
        
        If '酒店' Not In plcs Then  ' 如果场所中不包括此场所
        
        【 不显示该行 】
        
    End If
End If
Next
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/12/25 14:57:00 [显示全部帖子]

这样？

For Each dr As DataRow In DataTables("综合表").DataRows  ' 遍历 "综合表" 的数据行
    
    If dr.IsNull("应用场所") = False Then  ' 如果 "应用场所" 列不为空

        Dim plcs() As String = dr("应用场所").Split(",")  ' 将 "应用场所" 列的内容拆分成数组
        
        Tables.filter = " '酒店' Not In plcs"
        
    End If
End If
Next
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/12/25 17:18:00 [显示全部帖子]

测试的时候，出现错误。
什么原因呢？

图片点击可在新窗口打开查看此主题相关图片如下：行选择测试.jpg
图片点击可在新窗口打开查看


代码：
Dim Lst As List(of String)
For Each dr As DataRow In DataTables("表C").DataRows  ' 遍历 "表C" 的数据行
    If dr.IsNull("应用场所") = False Then  ' 如果 "应用场所" 列不为空
        Dim plcs() As String = dr("应用场所").Split(",")  ' 将 "应用场所" 列的内容拆分成数组
        Lst.AddRange(plcs)
    End If
Next


For i As Integer = 1 To Tables("表C").grid.Rows.count-1
    If Lst.Contains(Tables("表C").grid.Rows(i)("酒店")) Then
        Tables("表C").grid.Rows(i).visible = True
    Else        
        Tables("表C").grid.Rows(i).visible = False
    End If    
Next
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/12/25 18:07:00 [显示全部帖子]

怎么上传呢？

 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/12/25 20:01:00 [显示全部帖子]

实例来了！

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip


打开项目后，点击快速访问栏上的 “表C” 按钮，出现这个：

图片点击可在新窗口打开查看此主题相关图片如下：行选择测试 - 显示故障 - 测试实例.jpg
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/12/25 23:47:00 [显示全部帖子]

还是有问题，执行楼上代码后显示出错：

图片点击可在新窗口打开查看此主题相关图片如下：行选择测试 - 显示故障 - 测试实例-2.jpg
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
龙潭春早
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：676 积分：4895 威望：0 精华：0 注册：2018/3/22 16:05:00 		  发帖心情 Post By：2018/12/26 12:40:00 [显示全部帖子]

“酒店” 不是列，是多值字段 “应用场所” 里的内容。

我们是要显示 “应用场所” 中，含有 “酒店” 的所有行。

有的话，就显示该行；没有的话，就隐藏该行。

所以，先把多值字段 “应用场所” 里的内容拆分成数组，然后判断其是否含有 “酒店” 这个元素。
 回到顶部
总数 14 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.08398 秒, 6 次数据查询