标题: 【源码】设置数据表子窗体栏位宽度和是否隐藏 [打印本页] 作者: tmtony 时间: 2012-10-14 22:03 标题: 【源码】设置数据表子窗体栏位宽度和是否隐藏 '=========================================================------>>>>>>>>
'-函数名: gt_SetDataSheetColumn
'-描述: 设置数据表子窗体栏位宽度和是否隐藏
'-参数: Parameter1: rfrm Form rsfm subForm
Parameter2: rstrFormName String
'-Return: None
'-作者 tmtony
'=========================================================--<>>>>>
Public Function gt_SetDataSheetColumn(rfrm As Form, rstrFormName As String, Optional intMode As Integer = 0)
Dim i As Integer, strTag As String
Dim ctr As Control
Dim frmSubForm As Control
Dim strSubFormName As String
Dim strCtrCaption As String
For Each ctr In rfrm.Section(acDetail).Controls
If TypeOf ctr Is SubForm Then
Set frmSubForm = ctr
strSubFormName = ctr.Form.name
Exit For
End If
Next
If intMode <> 0 Then
frmSubForm.SetFocus
DoCmd.RunCommand acCmdUnhideColumns
Exit Function
End If
Dim rst As New ADODB.Recordset
rst.Open "select * from tblZstmColumnProperty where FFormName='" & rstrFormName & "' order by FSeqNo", CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rst.RecordCount <= 0 Then
rst.Close
Set rst = Nothing
Exit Function
End If
For i = 0 To rst.RecordCount - 1
Set ctr = frmSubForm.Form.Controls(rst("FControlName"))
ctr.ColumnHidden = Not rst("FIsSelect")
ctr.ColumnWidth = rst("FColumnWidth")
ctr.ColumnOrder = rst("FSeqNo")
rst.MoveNext
Next
Set rst = Nothing
Set ctr = Nothing
Set frmSubForm = Nothing
End Function 作者: t小宝 时间: 2012-10-14 22:07
谢谢王站分享,收藏学习.作者: xuwenning 时间: 2012-10-15 09:29
谢谢分享
收藏
学习作者: yanwei82123300 时间: 2012-10-15 09:48
谢谢分享
收藏
学习作者: ZDQ 时间: 2012-10-16 08:52
多谢分享！作者: huangli0356 时间: 2012-10-16 10:07
谢谢..总是高手^
