怎样编写组合框行来源为值列表呢？

简

比如说，列表框行来源是值列表，其值有AA，BB，CC，DD
我希望其值能够添加或者修改，但我又不想做成表，同时我又希望能做成函数，在所有窗体中都能使用。

要达到这个功能，又该怎么做呢。

tz-chf

要添加修改,总得存在什么地方吧,不做成表还能放在哪里?

红尘如烟

1. 
   
2. '=========================================================================================
   
3. '-函数名称：        SetComboList
   
4. '-功能描述：        设置组合框列表项的值
   
5. '-输入参数：        参数1：Combo----要设置的组合框
   
6. '                   参数2：Form----组合框所在窗体
   
7. '-返回参数：        无
   
8. '-调用示例：        在窗体的Open,Load事件,组合框的Enter事件中调用;SetComboList Combo2,Me
   
9. '-相关调用：        ComboNotInList
   
10. '-使用注意：        需要和ComboNotInList函数配合使用
    
11. '-兼 容 性：        支持AddItem方法的版本,且只适用于行来源为值列表的组合框
    
12. '-作    者：        红尘如烟
    
13. '-创建日期：        2008年7月13日
    
14. '========================================================================================
    
15. Function SetComboList(Combo As ComboBox, Form As Form)
    
16. On Error GoTo Err_ComboNotInList
    
17.     Combo.RowSource = CurrentProject.AllForms(Form.Name).Properties(Combo.Name & "List")
    
18. Exit_ComboNotInList:
    
19.     Exit Function
    
20.    
    
21. Err_ComboNotInList:
    
22.     If Err = 2455 Then
    
23.         CurrentProject.AllForms(Form.Name).Properties.Add Combo.Name & "List", Combo.RowSource
    
24.     Else
    
25.         If Err <> 0 Then MsgBox Err
    
26.     End If
    
27.     Resume Exit_ComboNotInList
    
28. End Function
    
29. '=========================================================================================
    
30. '-函数名称：        ComboNotInList
    
31. '-功能描述：        组合框中输入值不在列表中时自动添加
    
32. '-输入参数：        参数1：Combo----组合框
    
33. '                   参数2：Form----组合框所在窗体
    
34. '                   参数3：NewData----组合框中输入的不在列表中的值
    
35. '                   参数4：Response----对不在列表中事件的处理方式
    
36. '-返回参数：        无
    
37. '-调用示例：        在组合框的NotInList事件中调用:ComboNotInList Combo2, Me, NewData, Response
    
38. '-相关调用：        SetComboList
    
39. '-使用注意：        需要和SetComboList函数配合使用
    
40. '-兼 容 性：        支持AddItem方法的版本,且只适用于行来源为值列表的组合框
    
41. '-作    者：        红尘如烟
    
42. '-创建日期：        2008年7月13日
    
43. '========================================================================================
    
44. Function ComboNotInList(Combo As ComboBox, Form As Form, NewData As String, Response As Integer)
    
45. On Error GoTo Err_ComboNotInList
    
46.     If MsgBox("输入的值不在列表中，是否添加？", vbQuestion + vbYesNo) = vbYes Then
    
47.         Response = acDataErrAdded
    
48.         Combo.AddItem NewData
    
49.         CurrentProject.AllForms(Form.Name).Properties(Combo.Name & "List") = Combo.RowSource
    
50.     Else
    
51.         Response = acDataErrContinue
    
52.         Combo.Undo
    
53.     End If
    
54.    
    
55. Exit_ComboNotInList:
    
56.     Exit Function
    
57.    
    
58. Err_ComboNotInList:
    
59.     If Err = 2455 Then
    
60.         CurrentProject.AllForms(Form.Name).Properties.Add Combo.Name & "List", Combo.RowSource
    
61.     Else
    
62.         If Err <> 0 Then MsgBox Err
    
63.     End If
    
64.     Resume Exit_ComboNotInList
    
65. End Function
    

复制代码

[ 本帖最后由 红尘如烟 于 2008-7-13 23:49 编辑 ]

wang1950317

收藏！谢谢红尘如烟老师！

apsfxc1

[:33]

XWQ2000

[:50]

cslrhyl

学习学习

tcltyy

很厉害啊！

tz2806

服装批发商教你如何进货

http://www.360huoyuan.com/article-31.html

yzt2005

很厉害啊！