标题: 可以动态地设置列表框的列数、列宽吗？ [打印本页] 作者: fatmingli 时间: 2003-1-7 19:19 标题: 可以动态地设置列表框的列数、列宽吗？ 我设了一个查询窗体，文本框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 时间: 2003-1-7 20:29
用VBA设定：
列数：ColumnCount 属性值是一个从 1 到表、查询或 SQL 语句中字段最大数目或值列表中值的最大数目之间的整数，由控件的 RowSource 属性指定。