VB combo控件添加

text1内时间为12:00:00
text2内时间为12：30:01

combo1添加这个时间段按秒 所有的数据
combo1的列表就是 12：00:00
12: 00:01
……
12：30：01
举例：如果现在combo1选择了12:04:08
则combo2的列表则就是 12：04：09开始了一直到12：30：01
其实就是一个起始时间和一个终止时间

楼上的正确，只是combo2的开始是差了01，呵呵可能是笔误吧.
Private Sub Text1_LostFocus() '这个在text2中也加下面的代码，如果楼主用text数组就不用了。
If Text1.Text > Text2.Text Then
MsgBox "text1中时间大于text2中时间"
exit sub
end if
Combo1.Clear
For i = CDate(Text1.Text) To CDate(Text2.Text) Step CDate("00:00:01")
Combo1.AddItem i
Next
End Sub

Private Sub Combo1_Click()
Combo2.Clear
For i = CDate(Combo1.Text + CDate("00:00:01")) To CDate(Text2.Text) Step CDate("00:00:01")
Combo2.AddItem i
Next
End Sub

Private Sub Combo1_Click()
Combo2.Clear
For i = CDate(Combo1.Text) To CDate(Text2) Step CDate("00:00:01")
Combo2.AddItem i
Next
End Sub

Private Sub Command1_Click()
Combo1.Clear
For i = CDate(Text1) To CDate(Text2) Step CDate("00:00:01")
Combo1.AddItem i