SplitForm中如何隐藏列？

lazybird

在数据表格式中可以用ColumnHidden的方法将列隐藏起来，例如：
Me.Form.Controls("XXX1").ColumnHidden = True

将窗体改成SplitForm(上面窗体，下面数据表)之后，用同样的方法隐藏不了了。
求解决方法。

cgsilicone

不知道你为什么要这样设计窗体，有更好的设计方式。
按你的设想是可以实现的，有些麻烦。
1、ColumnHidden 起作用只能在 Form_Open，所以需要好好设计你的Form_Open
2、在需要改变ColumnHidden的地方，触发 Form_Open，简单简单代码如下：

Private Sub Command1_Click()
    开关 = True
    DoCmd.OpenForm "窗体1", acFormDS
    DoCmd.OpenForm "窗体1", acNormal
End Sub

Private Sub Command2_Click()
   开关 = False
   DoCmd.OpenForm "窗体1", acFormDS
   DoCmd.OpenForm "窗体1", acNormal
End Sub


Private Sub Form_Open(Cancel As Integer)
Me.Form.Controls("列1").ColumnHidden = 开关
End Sub

当然还需要在模块中加入：Public 开关 As Boolean

lazybird

没人回答 。。。   
不知道是不是没有说清楚问题，上传附件说明下。
求大师快现身指导

六月雪

最简单方法：用系统自带的隐藏显示列  DoCmd.RunCommand acCmdUnhideColumns

六月雪

隐藏列

六月雪

系统自带的隐藏显示列

lazybird

六月雪 发表于 2018-11-29 10:07
最简单方法：用系统自带的隐藏显示列  DoCmd.RunCommand acCmdUnhideColumns

这个解决不了问题，弹出来一个窗口还是要用户自己勾选。
我的应用场景是这样的 - 根据筛选条件自动隐藏和现实对应的很多个列，这样用户不用自己去勾选，
一是浪费时间，二是会选错。

admin

可以用父子窗体 代替

lazybird

admin 发表于 2018-11-29 14:56
可以用父子窗体 代替

是的，目前用的就是父子窗体。
在升级软件时为了精简代码改用分割窗体结果碰到这问题了。

lazybird

cgsilicone 发表于 2018-11-28 13:23
不知道你为什么要这样设计窗体，有更好的设计方式。
按你的设想是可以实现的，有些麻烦。
1、ColumnHidde ...

谢谢了，困扰了几天的问题虽然没有完美解决，但已经是目前知道的“最佳答案”了。
不知道您说的“更好的设计方式”是指什么？

之前用的父子窗体模式，对列可以用代码自由控制没有问题。
后来发现分割窗体有许多优势，窗体和代码都少了，只加载一个窗体速度也更快。