窗体1中的代码哪里错了

XUYUJING2007

新建 Microsoft Office Access 2007 数据库.zip (177.19 KB, 下载次数: 10)

2013-3-11 15:30 上传

点击文件名下载附件

Private Sub Form_Load()
Dim DB As Database
Dim RST As Recordset
Dim STR As Field
Set DB = CurrentDb()
Set RST = DB.OpenRecordset("部门")
List0.RowSourceType = "VALUE LEST"
List0.ColumnCount = 2
List0.ColumnWidth = "0;5cm"
List2.RowSourceType = "TABLE/QUERY"
List2.ColumnCount = 2
List2.ColumnWidth = "0;5cm"
List0.AddItem "0;全部"
List2.RowSource = "SELECT 员工ID,姓名 from 员工"
Do Until RST.EOF
List0.AddItem RST("部门ID") & ";" & RST("部门名称")
RST.MoveNext
Loop

End Sub

marco

List0.RowSourceType = "VALUE LiST"

XUYUJING2007

marco 发表于 2013-3-11 18:23
List0.RowSourceType = "VALUE LiST"

改了，还错，错在这一句List0.ColumnWidth = "0;5cm"

marco

List0.ColumnWidths

XUYUJING2007

marco 发表于 2013-3-12 09:03
List0.ColumnWidths

谢谢老师，现在对了