随意选择子窗体中想显示的列

Henry D. Sy

应网友要求，作个简单的例子，需要的网友可以参考，修正一下。


Sub HiddenCol(subFrm As SubForm, Optional bln As Boolean = True)
    Dim ctl As Control
    For Each ctl In subFrm.Controls
        If TypeOf ctl Is TextBox Then
           subFrm.Controls(ctl.Name).ColumnHidden = bln
        End If
    Next
End Sub

Henry D. Sy

建立动态查询，然后导出该查询。