怎么使DataCombo的内容动态的变化啊!!!

Question

假设有Text1,DataCombo1,现在我要实现当Text1.Text变化时,DataCombo1的下拉列表内容随着变化,程序如下:
Private Sub DataCombo1_Click()
    rs.Open 
        "select 姓名 from 人员安排 where 年纪='" & Text1.Text & "'",
        CN,adOpenDynamic, adLockBatchOptimistic
    DataCombo1.ListField = rs!姓名
    DataCombo1.Refresh
    rs.Close
End Sub

Answer 1

Private Sub Text1_Change()
    call DataCombo1_Click
End Sub

Answer 2

不建议使用datacombo控件使用combo.additem即可同意楼上

Answer 3

问题是我这样做了但是DataCombo的下拉列表还是空的啊

Answer 4

帮你解决这个问题!sub text1_change()
    rs.Open 
        "select 姓名 from 人员安排 where 年纪='" & Text1.Text & "'",
        CN,adOpenDynamic, adLockBatchOptimistic
    DataCombo1.ListField = rs!姓名
    DataCombo1.Refresh
    rs.Close
    DataCombo1.ReFillend sub

Answer 5

试试看，这样应该就可以了，也就是说对它重新做一下关联即可!
不过我只是根据你的题目得出的答案，我觉得你的意思是应该是把text控件里的内容写到datacombo里吧!!但是这样的话，你应该把text控件关联到数据库中去!这样，当text1变化时，先保存到数据库里，然后再去更新datacombo控件里的列表!如果是这样的话，那段代码可能需要你自己再改一下，另外也不是放在text1_change()事件里了!
祝你好运!