如何设定列表框的属性

好学

由于功能上的需要用代码来设定列表框的多重选择属性.但不知道为什么不行?请问问题出在那呢?
        Me.项目列表.MultiSelect = 1

haemon

Me.项目列表.MultiSelect = 2试试呢?

好学

0是无；1是简单；2是展开的都试了，帮助也是这样教的。但不知道为什么不行？

andymark

MultiSelect必须在设计视图才能正确运行，另建窗体拷贝下面的代码 再测试
DoCmd.OpenForm "窗体1", acDesign, , , , acHidden
Forms("窗体1").Controls("项目列表").MultiSelect = 1
DoCmd.Close acForm, "窗体1", acSaveYes

GZQT2005A

感觉这里的人真热心，多学习！

好学

呵呵，我没有想到这上点，还是andymark水平高啊！感谢了！

Henry D. Sy

1. 
   
2. Private Sub 单选_Click()
   
3.     On Error GoTo 单选_Click_Error
   
4.     DoCmd.OpenForm "窗体1", acDesign, , , , acHidden
   
5.     Forms("窗体1").Controls("项目列表").MultiSelect = 0
   
6.     DoCmd.OpenForm "窗体1"
   
7.     On Error GoTo 0
   
8.     Exit Sub
   
9. 单选_Click_Error:
   
10.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
11. End Sub
    
12. Private Sub 多选_Click()
    
13.     On Error GoTo 多选_Click_Error
    
14.     DoCmd.OpenForm "窗体1", acDesign, , , , acHidden
    
15.     Forms("窗体1").Controls("项目列表").MultiSelect = 1
    
16.     DoCmd.OpenForm "窗体1"
    
17.     On Error GoTo 0
    
18.     Exit Sub
    
19. 多选_Click_Error:
    
20.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
21. End Sub
    

复制代码