求显示txtbox随combobox选择而变化刷新的方法 - 编程论坛

#2

Artless2012-11-02 13:22

cmbDept_Change

#3

bleak2012-11-02 15:14

版主详细点啊，是在这个下面写个什么代码才能出来？万分感谢啊！

#4

bleak2012-11-02 15:15

我现在combo里面下拉可以得出数据库中的一列，但是文本怎么样查询和更新啊

#5

bleak2012-11-02 20:41

郁闷，谁帮帮忙啊

#6

wxflw2012-11-02 20:57

给你个参考：用了两个ADODC，combo1的内容和combo2的内容我是分两个表放的
Private Sub Form_Load()
Do While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("区域")
Adodc1.Recordset.MoveNext
Loop
Combo1.Text = Combo1.List(0)
Combo2.Text = Combo2.List(0)
End Sub
Private Sub Combo1_Click()
Combo2.Clear
= adCmdText
Adodc2.RecordSource = "select * from （combo2需要加载的表格名）"
Adodc2.Refresh
While Not Adodc2.Recordset.EOF
Combo2.AddItem Adodc2.Recordset.Fields(Combo1.Text) & ""
Adodc2.Recordset.MoveNext
Wend
Combo2.Text = Combo2.List(0)
End Sub

#7

wxflw2012-11-02 21:04

Private Sub Combo1_Click()
Combo2.Clear
= adCmdText
Adodc2.RecordSource = "select * from （combo2需要加载的表格名）"
Adodc2.Refresh
While Not Adodc2.Recordset.EOF
Combo2.AddItem Adodc2.Recordset.Fields(Combo1.Text) & ""
Adodc2.Recordset.MoveNext
Wend
Combo2.Text = Combo2.List(0)
End Sub
你只要把这里的稍微改改就能用的！算了！我直接改好了你看看吧
Private Sub Combo1_Click()
    Combo2.Clear
    Set cn = New adodb.Connection
    Set rs = New adodb.Recordset
    If cn.State = adStateOpen Then cn.Close
    If rs.State = adStateOpen Then rs.Close
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\数据库名;Jet OLEDB:Database Password=密码 "
    sql = "select * from 表名"
    rs.Open sql, cn, adOpenForwardOnly, adLockBatchOptimistic
While Not rs.EOF
Combo2.AddItem rs.Fields(Combo1.Text) & ""
rs.MoveNext
Wend
Combo2.Text = Combo2.List(0)
End Sub

#8

bleak2012-11-04 10:18

灰常感谢楼上大神！！