Listbox — webForum

clarkbonesMedlem sedan feb. 20013 023 inlägg

25 jan. 2004 14:37#1

Jag vill ha en listbox med flera kolumner. Värdena skall adderas från ett dataset. Med en enda kolumn så är det inga problem, men att få flera kolumner går jag bet på. Multicolumn propertyn luras och handlar egentligen inte om att få flera kolumner.

Diverse kod:

 Dim sSQLSELECT As String
        Dim oDBClass As ATA6.DBClass
        Dim oDataSet As System.Data.DataSet
        Dim iRow As Integer
        Dim sListboxString As String
        Dim oArr(,) As String
        Dim oListboxItem As System.Windows.Forms.ListBox.ObjectCollection

        sSQLSELECT = "SELECT DISTINCT (MissivID) AS MissivIDNr, RegDate" & _
        " FROM(TMissivItem) " & _
        " ORDER BY TMissivItem.MissivID DESC;"
        oDataSet = oDBClass.Show(sSQLSELECT)

        ReDim oArr(1, oDataSet.Tables(0).Rows.Count - 1)

        For iRow = 0 To oDataSet.Tables(0).Rows.Count - 1
                      oArr(0, iRow) = oDataSet.Tables(0).Rows(iRow).Item(0)
            oArr(1, iRow) = oDataSet.Tables(0).Rows(iRow).Item(1)
        Next
        lstShowMissiv.DataSource = oArr

Listboxen blir bara vit tyvärr. Med endimensionell array blir det bra