我有一个带有子表单的表单。该子窗体显示动态创建的查询的结果(用户输入条件,我构建 SQL,然后更新 querydef 并显示)。问题是由于列是动态的,所以列的宽度不合适,有些正在切断文本。
有没有办法以编程方式循环遍历列(或在没有循环的情况下执行相同操作)并在刷新查询后将它们全部设置为最适合的宽度?
编辑:这是我的代码现在的样子:
CurrentDb.QueryDefs("SearchResults").sql = sql
CurrentDb.QueryDefs.Refresh
Dim qdf1 As DAO.QueryDef
Dim fld1 As DAO.Field
Set qdf1 = CurrentDb.QueryDefs("SearchResults")
For i = 0 To qdf1.Fields.Count - 1
Set fld1 = qdf1.Fields(i)
fld1.CreateProperty "ColumnWidth", dbInteger
fld1.Properties("ColumnWidth") = -2 'Throws error
Set fld1 = Nothing
Next i
Me.Child20.SourceObject = "Query.SearchResults"