js_detalle.Child(i) siempre almacena la ultima fila de un listbox

Buen da

Tengo el siguiente cdigo.

dim js_detalle as new JSONItem
dim js_row As New JSONItem

For i As Integer = 0 to LstTiempos1.ListCount - 1
js_row.Value(“operacion”) = LstTiempos1.Cell(i, 0).Val
js_row.Value(“descripcion”) = LstTiempos1.Cell(i, 1)
js_row.Value(“toma_tiempo_1”) = LstTiempos1.Cell(i, 3).Val
js_row.Value(“calificacion_1”) = LstTiempos1.Cell(i, 4).Val
js_row.Value(“toma_tiempo_2”) = LstTiempos1.Cell(i, 5).Val
js_row.Value(“calificacion_2”) = LstTiempos1.Cell(i, 6).Val
js_row.Value(“tiempo_detalle_id”) = LstTiempos1.RowTag(i).IntegerValue

js_detalle.Child(i) = js_row

next

Al ver el contenido de js_detalle con js_detalle.ToString() me muestra todas la filas pero todas tiene el valor de la ultima fila.

Como puedo corregir este comportamiento?

Saludos.
Mauricio

Buen da.

Despus de darle vueltas lo pude resolver as:

dim js_detalle as new JSONItem
dim js_row As New JSONItem

For i As Integer = 0 to LstTiempos1.ListCount - 1

js_row = new JSONItem

js_row.Value(“operacion”) = LstTiempos1.Cell(i, 0).Val
js_row.Value(“descripcion”) = LstTiempos1.Cell(i, 1)
js_row.Value(“toma_tiempo_1”) = LstTiempos1.Cell(i, 3).Val
js_row.Value(“calificacion_1”) = LstTiempos1.Cell(i, 4).Val
js_row.Value(“toma_tiempo_2”) = LstTiempos1.Cell(i, 5).Val
js_row.Value(“calificacion_2”) = LstTiempos1.Cell(i, 6).Val
js_row.Value(“tiempo_detalle_id”) = LstTiempos1.RowTag(i).IntegerValue

js_detalle.Child(i) = js_row
next

No tengo claro porque tengo que hacerlo as.

Pienso que una vez ingresado js_row en js_detalle.Child(i), puedo ocupar la misma variable sin necesidad de hacer
js_row = new JSONItem.

Saludos.
Mauricio