根据表A某列的值，自动子表的某一列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据表A某列的值，自动子表的某一列

共有2388人关注过本帖树形打印复制链接主题：根据表A某列的值，自动子表的某一列

aza520

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

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

根据表A某列的值，自动子表的某一列 发帖心情

Post By：2018/10/16 11:42:00 [显示全部帖子]

有表A和表B，表B是子表，在同一个窗口显示，其中表A的第一行（第一列值A1）、第二行（第一列值为A2），当我选择表A中第一行时，子表会根据A1值自动隐藏子表的第一列，当我选择表A中第二行时，子表会根据A2值自动隐藏子表的第二列，请问老师，这个功能怎么实现？

aza520

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

等级：三尾狐帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00

Post By：2018/10/16 15:41:00 [显示全部帖子]

我想用Select Case语句，比如以下，可是有错，该如何改

Dim r As Row = e.Table.current

If r IsNot Nothing

Select Case r

Case "三江县"

Tables("S房屋明细").cols("政府其它补偿").visible = True

Case "融水县"

Tables("S房屋明细").cols("完成时间").visible = True

End Select

End If

主题：根据表A某列的值，自动子表的某一列