一个简单的问题有关combobox的

代码帖出来。
另外，你的combobox是不是与数据源绑定了?

解决方案 »

  1.   

    Private Sub Form_Load()
    Dim sql$
    On Error Resume Next
    Combo1.Text = ""
    Combo2.Text = ""
    Combo3.Text = ""
    Combo4.Text = ""
    Text1.Text = ""
    Adodc1.Visible = False
    Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\data\database.mdb"
    Adodc1.CommandType = adCmdUnknown
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\data\database.mdb"
    conn.Open
    sql = " select distinct country,ontime,men,ktime from add1"
    Set rs = conn.Execute(sql)
    While Not rs.EOF
       Combo1.AddItem rs!country
       Combo2.AddItem rs!men
       Combo3.AddItem rs!men
       Combo4.AddItem rs!ktime
       rs.MoveNext
       Wend
    End Subcombo没有绑定
      

  2.   

    这个问题最好在SQL语句中处理Disinct不行,就用Group BY country,men,
    ktime
      

  3.   

    这种方式只能多个rst赋值，distinct和group by 都是无效的
      

  4.   

    将combo中内容作个判断，发现相同的就删除该项