Question

VB查询access时关于编程的问题

combo1中文本包括姓名、日期
我的目的是希望当combo1中选择姓名时，combo2中的选项自动变为小李、小红两个选项；
当combo1中选择日期时，combo2中的选项自动变为早于、晚于、等于三个选项；
请问这个代码是不是给combo2添加文本基本代码什么？谢谢了！！！

Answer 1

Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.Text
    Case "姓名": Combo2.AddItem "小李": Combo2.AddItem "小红"
    Case "日期": Combo2.AddItem "早于": Combo2.AddItem "晚于": Combo2.AddItem "等于"
End Select
End Sub

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "姓名": Combo1.AddItem "日期"
End Sub

Answer 2

Private Sub Combo1_Change()
Select Case Combo1.Text
Case "姓名"
Combo2.Clear
Combo2.AddItem ("小李")
Combo2.AddItem ("小红")
Case "日期"
Combo2.Clear
Combo2.AddItem ("早于")
Combo2.AddItem ("晚于")
Combo2.AddItem ("等于")
End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem ("姓名")
Combo1.AddItem ("日期")
End Sub

追问

非常感谢，还想问一下，我现在用Combo1的Lostfocus事件来编写以上代码，但是我想让Combo2中有一个默认的选项，这样能使我在1里选日期时，2里自动出现三个选项，让等于成为默认的选项，怎么实现呢？谢谢

追答

private sub SetCombo()

Select Case Combo1.Text
Case "姓名"
Combo2.Clear
Combo2.AddItem ("小李")
Combo2.AddItem ("小红")
Case "日期"
Combo2.Clear
Combo2.AddItem ("早于")
Combo2.AddItem ("晚于")
Combo2.AddItem ("等于")
End Select
End Sub
'以上放到窗体声明部分

Private Sub Combo1_LostFocus()
SetCombo
End Sub

Private Sub Form_Load()
Combo1.AddItem ("姓名")
Combo1.AddItem ("日期")
Combo1.Text=Combo1.list(1)
SetCombo
End Sub

因为你在窗体加载和Combo1的Lostfocus时都要使Combo2反应，所以把代码放到一个子程序中可以避免重复。

追问

http://zhidao.baidu.com/question/1829804893177191180.html?quesup2&oldq=1
您有空帮我看看这个问题好么？谢谢了！