[求助]列效果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]列效果

共有2038人关注过本帖树形打印复制链接主题：[求助]列效果

yupeng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：350 积分：2933 威望：0 精华：0 注册：2015/4/23 19:53:00

[求助]列效果 发帖心情

Post By：2015/6/6 11:18:00 [只看该作者]

此主题相关图片如下：图1.jpg

此主题相关图片如下：图2.jpg

请教大师怎样才能达到此效果

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.rar

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/6/6 11:20:00 [只看该作者]

不懂你的意思? 意思是空值列不显示?

sloyy

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

主题：[求助]列效果