UC知道TEXTBOX输入字段号后自动combobox显示字段内容（不需要CLICK事件），请教如何解决，谢谢
来源：百度知道 编辑：UC知道 时间：2024/05/12 11:06:07
TEXTBOX输入字段号后自动combobox显示字段内容（不需要CLICK事件），请教如何解决，谢谢
用数据库，具体见源码如下：有问题请高手帮助解决
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Private Sub Text1_Change()
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb" '连接数据库
sql = "select " & Text1.Text & " from types"
rst.Open sql, con, adOpenKeyset, adLockOptimistic
Combo1.Clear
Do While Not rst.EOF
Combo1.AddItem rst(0) & ""
rst.MoveNext
Loop
rst.Close
con.Close
End Sub
用数据库，具体见源码如下：有问题请高手帮助解决
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Private Sub Text1_Change()
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb" '连接数据库
sql = "select " & Text1.Text & " from types"
rst.Open sql, con, adOpenKeyset, adLockOptimistic
Combo1.Clear
Do While Not rst.EOF
Combo1.AddItem rst(0) & ""
rst.MoveNext
Loop
rst.Close
con.Close
End Sub
用 Validate 事件可以解决
问题不明确，请详细说明
我也按我的理解写了一段代码，你作为参考
1、在窗体上添加一个text1控件
2、添加一个combo1控件
3、复制代码进去运行
注意：formload中的过程只是为了向combo1控件中添加一些内容，这些内容你可以改。
Dim a As Long
Private Sub Form_Load()
For i = 1 To 10
Combo1.AddItem i
Next i
Combo1.Text = 1
End Sub
Private Sub Text1_Change()
On Error GoTo Err:
If Text1.Text <> "" Then
a = Text1.Text
If a <= Combo1.ListCount Then
Combo1.Text = Combo1.List(a - 1)
Else
MsgBox "输入的数字太大，请重新输入"
Text1.Text = ""
End If
End If
Exit Sub
Err:
MsgBox "请输入数字"
Text1.Text = ""
End Sub
根据textbox的change事件 判断字段号是否存在 如果存在 则检索字段内容 显示在combox里面
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
Combo1.AddItem i
Next i
End Sub
Private Sub Text1_Change()
If Val(Text1.Text) > Combo1.ListCount - 1 Then