未从 SQL 查询填充多列组合框

Question

美好的一天，

我希望有人能帮我弄清楚为什么我的组合框没有正确填充， 这基本上从sql查询中获取三列并将它们添加到多列组合框中，问题是运行时，组合框为空。

我在使用 msgbox 的循环期间检查了数组组合列表的内容（名称不好:)），并且该数组确实具有正确的内容，只是没有进入框

   Dim recordset As String
    Dim RecordPostition As String
    Dim combinedlist(2) As String
    cnn.Open "Provider=private;"

       rst.Open "private", _
cnn, adOpenStatic
recordset = rst.RecordCount



           rst.MoveFirst

    Do Until rst.EOF
        combinedlist(0) = rst.Fields(0)
        combinedlist(1) = rst.Fields(1)
        combinedlist(2) = rst.Fields(2)
        RecordPostition = rst.AbsolutePosition

            With InsertWOString.ComboBox1
              .AddItem
                  .Column(0, RecordPostition) = (combinedlist(0))
                  .Column(1, RecordPostition) = (combinedlist(1))
                  .Column(2, RecordPostition) = (combinedlist(2))

             End With
        rst.MoveNext

    Loop

    rst.Close
    cnn.Close

Answer 1

未经测试：

'...
Do Until rst.EOF
    With InsertWOString.ComboBox1
          .AddItem rst.Fields(0).Value
          .List(.ListCount - 1, 1) = rst.Fields(1).Value
          .List(.ListCount - 1, 2) = rst.Fields(2).Value             
    End With
    rst.MoveNext
 Loop
 '...