| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 通过单元格中内容隐藏列的问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109097) |
| -- 作者：zsslly -- 发布时间：2017/11/3 23:18:00 -- 通过单元格中内容隐藏列的问题？ 我有一个"表A"，设计一个窗口引用为副本表，我想检查表中的所有列中的内容如果有“正常”字符的，则隐藏此列，代码如何写? 了解通过代码通过判定列标题来隐藏列的，但通过判定单元格内容的不知道怎么写，求教？
|
| -- 作者：有点蓝 -- 发布时间：2017/11/3 23:22:00 -- For Each c As Col In Tables("表B").Cols If DataTables("表B").Find(c.Name & " like \'%正常%\'") IsNot Nothing c.Visible = False End If Next
|
| -- 作者：zsslly -- 发布时间：2017/11/3 23:43:00 -- 跪谢老师！老师辛苦了，老师早点休息！ |
| -- 作者：zsslly -- 发布时间：2017/11/3 23:49:00 -- 老师，隐藏整列都是空的怎么写？ |
| -- 作者：有点蓝 -- 发布时间：2017/11/4 8:43:00 -- If DataTables("表B").Find(c.Name & " is not null ") Is Nothing For Each c As Col In Tables("表B").Cols If DataTables("表B").Find(c.Name & " like \'%正常%\'") IsNot Nothing c.Visible = False elseif If DataTables("表B").Find(c.Name & " is not null ") Is Nothing c.Visible = False End If Next |
| -- 作者：zsslly -- 发布时间：2017/11/4 9:18:00 -- 谢谢老师 |
| -- 作者：有点蓝 -- 发布时间：2017/11/4 16:06:00 -- 上面表A窗口表click事件 Tables("窗口1_Table2").Filter = "小区地址 = \'" & Tables("窗口1_Table1").Current("小区地址") & "\'" For Each c As Col In Tables("窗口1_Table2").Cols c.Visible = Tables("窗口1_Table2").Compute("count(_Identify)",c.Name & " is not null ") > 0 Next |
| -- 作者：zsslly -- 发布时间：2017/11/4 16:50:00 -- 跪谢老师 |