一个比较简单的combo1的添加问题，比较简单，不要笑我。

Question

我香if combo1.text="北京" then
combo2.additem 100001
combo2.additem 100002
combo2.additem 100003
if combo1.text="上海" then
combo2.additem 200001
combo2.additem 200002
combo2.additem 200003
但是没有办法做到，怎么做啊？就是当combo1下拉条里是北京时combo2下拉条里有
combo2.additem 100001
combo2.additem 100002
combo2.additem 100003等数据。怎么作到谢谢

Answer 1

将if combo1.text="上海" then
combo2.additem 200001
combo2.additem 200002
combo2.additem 200003
放到combo1的click事件里

Answer 2

Private Sub Combo1_Click()
If Combo1.Text = "世纪泰康团体综合医疗保险" Then
   Combo2.AddItem 一般住院日额责任
ElseIf Combo1.Text = "高额无忧Ⅰ型团体医疗保险" Then
   Combo2.AddItem 高额医疗责任
   Combo2.AddItem 门诊医疗责任
End If
End Sub

Answer 3

不行啊，我这样做有错吗？我的combo2里面还是什么都没有啊

Answer 4

Private Sub combo1_click()Combo2.Clear
If Combo1.Text = "北京" Then
Combo2.AddItem 100001
Combo2.AddItem 100002
Combo2.AddItem 100003
ElseIf Combo1.Text = "上海" Then
Combo2.AddItem 200001
Combo2.AddItem 200002
Combo2.AddItem 200003
End If
Combo2.Text = Combo2.List(0)
End Sub

Answer 5

还是用我的吧，我昨天刚解决一个跟你差不多的问题，你看看 ，其中combo1控件吧北京、上海在属性栏list那里添加过去
Private Sub combo1_click()
dim a as integer
Select Case a
Case 0
Combo2.Refresh
Combo2.clear
        Combo2.AddItem 200001
        combo2.additem 200001
Case 1
 Combo2.Refresh
 Combo2.clear
       Combo2.AddItem 200001
        combo2.additem 200001
 
End Select
End Sub

Answer 6

page_load{
if not postback then
...
}