如何將行值添加到組合框中

Question

我有一個表名稱「product」，而product_name類別是一個字段。我想在這裏給行值添加到其中重複類別值的組合框....

product_name | category 
--------------+---------- 
Ceiling fan | fan    
Table fan | fan    
Wall fan  | fan    

我嘗試下面的代碼，但沒有做while語句它給出一個值，當我試圖循環播放機器掛起。 Plz help

Option explicit 
Private sub cboCategories_Click() 
    cboProducts.clear 
    rs.open "select * from product". cn, adOpenDynamic. adLockOptimistic 
    With rs 
    .find "category=' " & cbiCategories.Text & " ' " 
    .moveFirst 
    With rs(0).value 
    Do until rs.EOF 
    cboProducts.AddItem rs(0).Value 
    rs.MoveNext 
    Loop 
    End with 
    End with 
    End sub 

這是我目前的表格。我想要將product_name字段值添加到類別名稱相同的組合框中，例如'fan'

Answer 1

有幾種方法可以對這種貓進行皮膚處理。一種是從使用數據整形服務創建的斷開分層記錄集中獲取組合框數據。

這個例子假設有一個標題行的CSV文件，但同樣的事情的作品有一個Jet或其他數據庫表：我用

Option Explicit 

Private rsShapedProducts As ADODB.Recordset 

Private Sub cboCategories_Click() 
    With cboProducts 
     .Clear 
     With rsShapedProducts 
      .MoveFirst 
      .Find "[Category]='" & cboCategories.List(cboCategories.ListIndex) & "'" 
      With ![Products].Value 
       .MoveFirst 
       Do Until .EOF 
        cboProducts.AddItem ![Product].Value 
        .MoveNext 
       Loop 
      End With 
     End With 
     .ListIndex = 0 
    End With 
End Sub 

Private Sub cboProducts_Click() 
    lblSelection.Caption = cboCategories.List(cboCategories.ListIndex) _ 
         & " -> " _ 
         & cboProducts.List(cboProducts.ListIndex) 
End Sub 

Private Sub Form_Load() 
    Set rsShapedProducts = New ADODB.Recordset 
    With rsShapedProducts 
     .CursorLocation = adUseClient 
     .Open "SHAPE {" _ 
      & "SELECT [Category], [Product] FROM [products.txt] " _ 
      & "ORDER BY [Category], [Product]" _ 
      & "} AS [Products] COMPUTE [Products] BY [Category]", _ 
       "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;" _ 
      & "Data Source='" & App.Path & "';Extended Properties='Text;Hdr=Yes'", _ 
       adOpenStatic, _ 
       adLockReadOnly, _ 
       adCmdText 
     Set .ActiveConnection = Nothing 
     Do Until .EOF 
      cboCategories.AddItem ![Category].Value 
      .MoveNext 
     Loop 
    End With 
    Show 
    cboCategories.ListIndex = 0 
End Sub 

Private Sub Form_Unload(Cancel As Integer) 
    rsShapedProducts.Close 
End Sub 

測試數據：

Category,Product 
Fan,Ceiling Fan 
Fan,Table Fan 
Fan,Wall Fan 
Lamp,Floor Lamp 
Lamp,Table lamp 
Lamp,Desk Lamp 
Table,Coffee Table 
Table,End Table 
Table,Kitchen Table 
Table,Dining Table 
Table,Card Table 

Answer 2

Private Function IsInCollection(ByVal Coll As Collection, CollKey As String) As Boolean 
    On Error GoTo errHandler 
    Dim b As Variant 
    b = Coll(CollKey) 
    IsInCollection = True 
errHandler: 
    Err.Clear 
    Exit Function 
End Function 

Public Sub FillCombo() 
    Dim rs As Adodb.Recordset 
    Dim Coll As New Collection 
    Dim strNewValue As String 
    Set rs = fillMyRs 
    Do While Not rs.EOF 
     strNewValue = rs.Fields("category").Value 
     If IsInCollection(Coll, strNewValue) Then 
      strNewValue = strNewValue & " - " & rs.Fields("product_name").Value 
     Else 
      Coll.Add strNewValue, strNewValue 
     End If 
     Combo1.AddItem strNewValue 
     rs.MoveNext 
    Loop 
End Sub