自动隐藏的扩展列随单元格自动显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动隐藏的扩展列随单元格自动显示

共有2662人关注过本帖树形打印复制链接主题：自动隐藏的扩展列随单元格自动显示

有点蓝

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

等级：超级版主帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/5 18:00:00 [显示全部帖子]

Dim Isfind As Boolean

For Each a As OBJECT In Tables("表A").grid.Parent.controls

For Each b As OBJECT In a.controls

If B.text = "第九列" Then

b.AutoHiding = False

Isfind = True

Exit For

End If

If Isfind = False

For Each b As OBJECT In a.controls

b.AutoHiding = False

For Each c As OBJECT In b.controls

If c.text = "第九列" Then

c.parent.SelectedTab = c

Return ""

End If

b.AutoHiding = True

End If

有点蓝

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

等级：超级版主帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/6 9:38:00 [显示全部帖子]

做个例子上来测试

有点蓝

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

等级：超级版主帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/24 16:44:00 [显示全部帖子]

有什么规律吗？毕竟是通过非常规的方式控制的，难免会有问题。建议自己做窗口进行控制

主题：自动隐藏的扩展列随单元格自动显示