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
 '...

MultiColumn ComboBox不从SQL查询填充

1 个答案: