Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有规律的隐藏列


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

主题：有规律的隐藏列
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109735 积分：558391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/25 10:02:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109735 积分：558391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/25 10:15:00 [显示全部帖子]

合成列名，比如

for i as integer = 1 to 24
msgbox("第" & i & "期")
Tables("订单").Cols("第" & i & "期").Visible = False
next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109735 积分：558391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/25 10:35:00 [显示全部帖子]

怎么样才算是：已经结算的最大期数？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109735 积分：558391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/25 10:57:00 [显示全部帖子]

遍历所有列，判断这列是否有数据

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109735 积分：558391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/25 11:37:00 [显示全部帖子]

        For Each dc As Col In Tables("分包结算表").Cols

if dc.name like "第*" then

           if Tables("分包结算表").compute("count(" & dc.name & ")", dc.name & " is not null") = 0 then

dc.Visible =false

else

dc.Visible =true

endif

endif

        Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109735 积分：558391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/26 9:33:00 [显示全部帖子]

dim i as integer = 0

        For Each dc As Col In Tables("分包结算表").Cols

if dc.name like "第*" then

           if Tables("分包结算表").compute("count(" & dc.name & ")", dc.name & " is not null") = 0 then

if i=0 then

dc.Visible =true

i=1

else

dc.Visible =false

end if

else

dc.Visible =true

endif

endif

        Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109735 积分：558391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/26 10:04:00 [显示全部帖子]

同样的方法，看懂代码，自己改改

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109735 积分：558391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/26 10:20:00 [显示全部帖子]

如果i=0，说明没有设置过空值，那就给第1个空值显示，然后i设置为1，下次判断i<>0,说明设置过，就不再给显示了

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109735 积分：558391 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/26 10:37:00 [显示全部帖子]

if i<2 then

dc.Visible =true

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