请问如何有条件显示列？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问如何有条件显示列？

共有2552人关注过本帖树形打印复制链接主题：请问如何有条件显示列？

chh2321

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

加好友

发短信

等级：童狐帖子：253 积分：2573 威望：0 精华：0 注册：2016/8/8 9:50:00

请问如何有条件显示列？ 发帖心情

Post By：2017/6/11 11:58:00 [只看该作者]

老师，您好！

我想当表第一列出现字符串“A”时，显示第二列，否则隐藏第二列。请问如何书写代码，在哪个事件中书写？

新福星

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

加好友

发短信

等级：八尾狐帖子：1960 积分：15542 威望：0 精华：0 注册：2011/7/16 20:59:00

Post By：2017/6/11 12:31:00 [只看该作者]

If e.DataCol.Name="第一列" Then

If e.NewValue="A" Then

Tables("表名").Cols("第一列").Visible=False

Else

Tables("表名").Cols("第一列").Visible=True

End If

放到表的DataColChanged这个事件中

[此贴子已经被作者于2017/6/11 12:32:10编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/11 14:35:00 [只看该作者]

你的逻辑有问题。是第一列某一行只要有A就隐藏第二列，还是说当前行为A，就隐藏第二列？

chh2321

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

加好友

发短信

等级：童狐帖子：253 积分：2573 威望：0 精华：0 注册：2016/8/8 9:50:00

Post By：2017/6/11 15:06:00 [只看该作者]

我是想第一列某一行只要出现A，就出现第二列。

chh2321

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

加好友

发短信

等级：童狐帖子：253 积分：2573 威望：0 精华：0 注册：2016/8/8 9:50:00

Post By：2017/6/11 15:30:00 [只看该作者]

是不是应该先隐藏第二列，当第一列某一行出现 “%A%”时，再Tables("表名").Cols("第二列").Visible = True ？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/11 16:27:00 [只看该作者]

AfterOpenProject事件、DataColChanged事件

Dim fdr As DataRow = DataTables("表A").Find("第一列 like '%A%'")
If fdr IsNot Nothing Then
Tables("表A").cols("第二列").Visible = True
Else
Tables("表A").cols("第二列").Visible = False
End If

chh2321

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

加好友

发短信

等级：童狐帖子：253 积分：2573 威望：0 精华：0 注册：2016/8/8 9:50:00

Post By：2017/6/12 9:05:00 [只看该作者]

谢谢老师，成功解决！

下一主题 >> << 上一主题

主题：请问如何有条件显示列？