可以动态地设置列表框的列数、列宽吗？

fatmingli

我设了一个查询窗体，文本框Text0是用来输入SQL查询语句的，列表框List0是用来显示查询结果的，由于Text0的不同，所以List0的列数和列宽是不同的，我可以用文本框“列数”“列宽”在窗体里动态地设置列表框的列数、列宽吗？怎样设置？
Option Compare Database
Private Sub Command4_Click()
If IsNull(Text0) = False Then
  If Text0 Like "*密码*" Then
     MsgBox "输入的内容请不要包含“密码”！"
  Else
     Dim strsql As String
     strsql = Text0
     List0.RowSource = strsql
  End If
Else
   MsgBox "请输入SQL查询语句！"
End If
End Sub
Private Sub Command5_Click()
DoCmd.Close
End Sub

zhengjialon

用VBA设定：
    列数：ColumnCount 属性值是一个从 1 到表、查询或 SQL 语句中字段最大数目或值列表中值的最大数目之间的整数，由控件的 RowSource 属性指定。

    列宽：在多列组合框或列表框中，可以使用 ColumnWidths（列宽） 属性来指定每列的宽度。也可以使用此属性隐藏一列或多列。

fatmingli

版主，能提供具体的代码吗？谢谢

fatmingli

List0.ColumnCount = 列数 + 1
List0.ColumnWidths = 列宽
用来设置列数，如果有3列，想设第一列宽1，第二列宽2，第三列宽3，应怎样？

zhengjialon

List0.ColumnWidths = "1cm;2cm;3cm"

fatmingli

不行，我已经知道了
List0.ColumnWidths = "1厘米;2厘米;3厘米"