- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]列效果 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69506)
-- 发布时间：2015/6/6 11:18:00
-- [求助]列效果
此主题相关图片如下：图1.jpg
此主题相关图片如下：图2.jpg
请教大师怎样才能达到此效果
-- 发布时间：2015/6/6 11:20:00
--
不懂你的意思? 意思是空值列不显示?
-- 发布时间：2015/6/6 11:55:00
--
订单主表click事件
Dim Sum1 As Integer
For Each cl As Col In Tables("订单主表.订单明细表").Cols
If cl.name<>"订单编号" Or cl.name<>"明细_颜色"
Sum1 = Tables("订单主表.订单明细表").Compute("Sum(" &cl.name & ")")
If sum1=0 Then
Tables("订单主表.订单明细表").Cols(cl.name).Visible=False
Else
Tables("订单主表.订单明细表").Cols(cl.name).Visible=True
End If
End If
Next
