[Solved] Populate listbox multicolumn from range

[patel]

Hi all, this is my code, I don't know how populate the grid, can you help me ?

Code: Select all

sub listboxmulti
Sheet = ThisComponent.Sheets(0)
c = Sheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow + 1
CellRange1 = Sheet.getCellRangeByName("A2:E" & LastRow)

DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
Dlg.Title = "Trasferimento Prodotti"
dlgmodel = dlg.getModel()
     
      ' create new grid control
      gridmodel = dlgmodel.createInstance("com.sun.star.awt.grid.UnoControlGridModel")
      with gridmodel
        .PositionX = 10
        .PositionY = 30
        .Width = 150
        .Height = 100
      end with
     
      ' add columns
      columnmodel = gridmodel.ColumnModel
      col = columnmodel.createColumn()
      col.Title = "LastName"
      columnmodel.addColumn(col)
      col = columnmodel.createColumn()
      col.Title = "FirstName"
      columnmodel.addColumn(col)
      col = columnmodel.createColumn()
      col.Title = "Cod"
      columnmodel.addColumn(col)
      col = columnmodel.createColumn()
      col.Title = "Description"
      columnmodel.addColumn(col)      
      col = columnmodel.createColumn()
      col.Title = "Q.ty"
      columnmodel.addColumn(col)      
     
      ' insert grid control to the dialog
      dlgmodel.insertByName("grid", gridmodel)
     
      ' fill the grid with data
      datamodel = gridmodel.GridDataModel

      Dati = CellRange1.GetDataArray
      svc = createUnoService("com.sun.star.sheet.FunctionAccess")
      Dati1 =  svc.callFunction("TRANSPOSE", Array(Dati))
      datamodel.StringItemList = Dati1 ' <<<<<<<<<<<<< ERROR   method not found StringItemList
      dlg.execute()
      dlg.dispose()

End Sub

[patel]

Solved

Code: Select all

sub listboxmulti
Sheet = ThisComponent.Sheets(0)
c = Sheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow + 1
CellRange1 = Sheet.getCellRangeByName("A2:E" & LastRow)

DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
Dlg.Title = "Trasferimento Prodotti"
dlgmodel = dlg.getModel()
     
      ' create new grid control
      gridmodel = dlgmodel.createInstance("com.sun.star.awt.grid.UnoControlGridModel")
      with gridmodel
        .PositionX = 10
        .PositionY = 30
        .Width = 150
        .Height = 100
      end with
     
      ' add columns
      columnmodel = gridmodel.ColumnModel
      col = columnmodel.createColumn()
      col.Title = "LastName"
      columnmodel.addColumn(col)
      col = columnmodel.createColumn()
      col.Title = "FirstName"
      columnmodel.addColumn(col)
      col = columnmodel.createColumn()
      col.Title = "Cod"
      columnmodel.addColumn(col)
      col = columnmodel.createColumn()
      col.Title = "Description"
      columnmodel.addColumn(col)     
      col = columnmodel.createColumn()
      col.Title = "Q.ty"
      columnmodel.addColumn(col)     
     
      ' insert grid control to the dialog
      dlgmodel.insertByName("grid", gridmodel)
     
      ' fill the grid with data
      datamodel = gridmodel.GridDataModel
      Dati = CellRange1.GetDataArray '<<<<<< 
      for i= 0 to Ubound(Dati) '<<<<<< 
         datamodel.addRow("", Dati(i)) '<<<<<< 
      next '<<<<<< 

      dlg.execute()
      dlg.dispose()

End Sub