'用这个循环将子窗体【工作表视图】的所有列都隐藏掉[黄海斑竹教兔兔的]
Dim Ctrl As Control
For Each Ctrl In Me.frm建制单位部局下属.Controls
If TypeOf Ctrl Is Label Then
'标签控件会随文本框一起隐掉,不用处理,不然出错
Else
Ctrl.ColumnHidden = True
End If
Next Ctrl
'显示你自己需要的列
'使用 ColumnHidden 属性可以在“数据表”视图中显示或隐藏指定的列。Boolean 型,可读写。
Me.frm建制单位部局下属.Form.SNAME.ColumnHidden = False