Access快速开发平台--记录用户列序列宽隐藏列_优化打开速度-vincent
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


Access快速开发平台--记录用户列序列宽隐藏列_优化打开速度

发表时间:2021/7/23 17:22:37 评论(0) 浏览(2391)  评论 | 加入收藏 | 复制
   
摘 要:Access快速开发平台--记录用户列序列宽隐藏列_优化打开速度。
正 文:
      上回发了示例Access快速开发平台--记录每个用户数据表窗体的列宽列序和隐藏列[Access软件网]

http://www.accessoft.com/article-show.asp?id=19935

最近对示例进行了优化处理,分享给大家学习。


附   件:

盟威Access快速开发平台V2.5.1版(32位)_记录用户列序列宽隐藏列_优化


代   码:

Public Function LayoutColumn(Frm As Object) '返出列
    On Error Resume Next
    DoCmd.SetWarnings False
    Dim ctl As Control
    Dim cnn As New ADODB.Connection
    Set cnn = CurrentProject.Connection
    Dim UsName As String
    UsName = GetParameter("Current User Username") '当前用户名
    strSQL = "select [FieldsName],[ColumnHide],[FieldsColumnSN],[ColWidth] from [tblUserFrmSetting] where [UserName]=" & SQLText(UsName) & " and [FrmName]=" & SQLText(Frm.Name) & " order by FieldsColumnSN"
    Set rs = cnn.Execute(strSQL)
    Do Until rs.EOF
        If rs!ColumnHide Then
            Frm("[" & rs!FieldsName & "]").ColumnHidden = True '隐藏用户列
        End If
'        For Each ctl In Frm.Controls
'            If ctl.ControlType = acTextBox Then ' 确保控件为文本框
'                If ctl.Name = rs!FieldsName Then ' 确保控件的名称与字段名称一致
'                    ctl.ColumnOrder = rs!FieldsColumnSN ' 赋值控件的顺序号
'                    ctl.ColumnWidth = rs!ColWidth ' 赋值控件的列宽
'                End If
'            End If
'        Next ctl
        Frm.Controls(rs!FieldsName).ColumnOrder = rs!FieldsColumnSN '如果窗体控件多,里面用for成了2倍太慢了,改为这两句
        Frm.Controls(rs!FieldsName).ColumnWidth = rs!ColWidth

        rs.MoveNext
    Loop
    DoCmd.SetWarnings True
    Set cnn = Nothing
    Set rst = Nothing
    
End Function


Access软件网交流QQ群(群号:198465573)
 
 相关文章
真正用ColumnHidden隐藏列的方法  【十段  2010/9/12】
【access入门】Access用ColumnHidden函数隐藏...  【麥田  2011/7/5】
【access入门】另类字段加密,加密字段需输入密码才能显示隐藏列...  【麥田  2011/7/18】
用代码调出取消隐藏列表  【杨雪  2017/12/19】
【Access示例】自定义隐藏数据表窗体的列/隐藏列  【缪炜  2018/7/13】
Access隐藏列/Access自带取消隐藏列;请问Access子...  【金宇  2018/8/4】
Access快速开发平台--记录每个用户数据表窗体的列宽列序和隐藏...  【vincent  2021/7/8】
常见问答
技术分类
相关资源
文章搜索
关于作者

vincent

文章分类

文章存档

友情链接