Question

vb中关于combobox删除选项错误

这是combo1中的下拉选项，combo2中的下拉选项也是这个，可是当我选择如果10:00的话，combo2并不会删除10:00以前的时间，并且当combo1中的选的时间较大时，出现错误，提示无效的过程调用或参数。麻烦大神来帮帮我~~
9:00
9:30
10:00
10:30
11:00
11:30
12:00
12:30
13:00
13:30
14:00
14:30
15:00
15:30
16:00
16:30
17:00
17:30
18:00
18:30
19:00
19:30
20:00
20:30
21:00
21:30

Answer 1

Private Sub Combo1_Click()
Dim n As Integer
Dim i As Integer
Dim k As Integer
n = Combo1.ListIndex
If n >= 0 Then
k = n
For i = 0 To Combo2.ListCount - 1
If Combo1.ItemData(k) <= Combo2.ItemData(i) Then
Exit For
End If
Next
If i >= 1 Then
While i > 0
Combo2.RemoveItem 0
i = i - 1
Wend
End If
End If
End Sub

Private Sub Form_Load()
Dim d As Date
Dim s As String
Dim i As Integer
d = #9:30:00 AM#
For i = 1 To 25
s = Format(DatePart("h", d), "00") & ":" & Format(DatePart("n", d), "00")
Combo1.AddItem s
Combo1.ItemData(i - 1) = i
Combo2.AddItem s
Combo2.ItemData(i - 1) = i
d = DateAdd("n", 30, d)
Next
End Sub

追问

真是太棒了，再问一个小问题。
在VB环境下怎么通过adodb对数据库经行重复搜索，假定用户输入9:00~10:00，我是不是先要在数据库中搜索9：00~9:30符合的记录，再在这些符合的记录里寻找9:30~10:00的符合的记录呢（我在数据库中设定字段 0 表示9：00~9:30这个时间段，然后以此类推）这个问题要怎么解决吗？麻烦您了。

追答

数据库没怎么用过 自己去思考吧