VB ComboBox 的 listindex 自动变-1的问题
一个combobox控件 名为 cboCompany
相关代码如下
Private Sub cboLine_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub
Private Sub cboCompany_Change()
Dim i As Integer
cboBus.Clear
If Len(Trim(cboCompany.Text)) = 3 Then
For i = 0 To cboCompany.ListCount - 1
'判断输入的数字 是否 与列表前几位数字相等
If CInt(Trim(cboCompany.Text)) = CInt(Mid(cboCompany.List(i), 1, Len(cboCompany.List(i)) - 2)) Then
cboCompany.ListIndex = i
Exit Sub
End If
Next
End If
End Sub
Private Sub cboCompany_Click()
Dim i As Integer
Dim sqlBus As String
''车辆
If cboCompany.ListIndex > -1 Then
cboBus.Clear
sqlBus = "Select bus_id,bus_no from zy_bus_info where company_no = '" & cboCompany.ItemData(cboCompany.ListIndex) & "' Order By cast(bus_no as int)"
Set rsForDeviceout = GetRSs(sqlBus, 0)
相关问答：
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
