Quote from Xojo on September 20, 2021, 7:05 pm

Hola todos

Vengo de la programación con XOJO (y que a la fecha sigo usando) y unos de los objetos mas utilizados para la visualización de los datos es la WEBLISTBOX.

En XOJO la weblistbox se puede programar  a codigo o desde l'IDE estableciendo numero u/o ancho de columnas.

Anexo dos pantallazos para su referencia.

En algunos casos es necesario sumar los valore de una columna en lo especifico, y eso es como lo hago a codigo:

 

Aca es donde hago los calculos

 

Dim risultato,valoreGrammo,valore As Double



For i As Integer = 0 To ListBoxMPrimaOP.RowCount -1  rem ciclo e calcolo i grammi per ogni prodotto
  
  risultato = (Val(txt_op_gramos.Text) * Val(ListBoxMPrimaOP.CellValueAt(i,4))) / 100 ' calcolo la percentuale
  valoreGrammo  = (risultato / 1000) * val(ListBoxMPrimaOP.CellValueAt(i,5)) ' calcolo i grammi totali per ogni singolo prodotto
  
  ListBoxMPrimaOP.CellValueAt(i,5) = Format(risultato,"0.00") ' questi sono il risultato dei grammi nella formula
  
  // adesso sommo la colonna dei valori in $ dei prodotti 
  valore =  valore + val(ListBoxMPrimaOP.CellValueAt(i,5))
  
  txt_op_valor_gramos.Text = Format(valore,"0") ' formatto il testo
  
Next i

y aca es donde guardo todos los valore de la listbox

Session.rec = new DatabaseRow
var rs as RowSet 

session.mDB.ExecuteSQL("BEGIN TRANSACTION") // 

For i As Integer = 0 To ListBoxMPrimaOP.RowCount -1 
  
  
  if id_orden_produccion.Text  <> "" then 
    
    Session.rec.Column("id_op") = ListBoxOP.CellValueAt(ListBoxOP.SelectedRowIndex,1)
    Session.rec.Column("id_formula") = ListBoxMPrimaOP.CellValueAt(i,1)
    Session.rec.Column("materia_prima")= ListBoxMPrimaOP.CellValueAt(i,3)
    Session.rec.Column("percentuale")= ListBoxMPrimaOP.CellValueAt(i,4)
    Session.rec.Column("gramos")= ListBoxMPrimaOP.CellValueAt(i,5)
    Session.rec.Column("id_ricezione_materia_prima")= ListBoxMPrimaOP.CellValueAt(i,6)
    Session.rec.Column("codigo_interno")= ListBoxMPrimaOP.CellValueAt(i,7)
    Session.rec.Column("cliente").StringValue = txtCliente.Text
    
    session.mDB.AddRow("formula_op",Session.rec)
    
    
  End If 
  
next


session.mDB.CommitTransaction

Ahora como puedo alcanzar el mismo resultado con la listbox en VisualNeo Web?

Gracias de antemano