请问怎么才能把数据库中的记录显示在dbcombo控件中呢？在线等，马上给分。

Question

我想把数据表里的某个字段显示在dbcombo控件中，以下程序错在哪里了？Dim sort As String
sort = newkind
Dim SQL As String
SQL = "SELECT kind FROM data WHERE kind = 'sort'"
Data1.Visible = False
Data1.DatabaseName = App.Path & "\data.mdb"
Data1.RecordSource = SQL
Data1.Refresh
DBCombo1.Refresh或者请大家给我一段正确的程序，谢谢。

Answer 1

你只是給了data1數據源，DBCombo1並為給數據啊

Answer 2

With TDBComboCompany
        Set .RowSource = cSql.GetRst("select company_code , company_desc from hy_company")
        .ListField = "company_desc"
        .BoundColumn = "company_code"
        .AlternatingRowStyle = True
        .Columns(0).Width = 500
        .Columns(1).Width = 5000
        .ColumnHeaders = False
        .RowTracking = True
    End With