Access - Como agregar filas o itema vb.net con json

 
Vista:
sin imagen de perfil

Como agregar filas o itema vb.net con json

Publicado por ricardo (1 intervención) el 28/04/2018 21:29:37
Algún maestro de .Net recién ingreso a usar json con vb.net y tengo una dificultad, de como agregar las filas que recorro a json.items= item,
después del recorrido solamente almacena la ultima fila, porfa apoyo, Gracias.

Dejo el código aquí

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim item
For Each itemDetalleRecibo As cls_Entidad.clsDetalleRecibo In detalleReciboReciboL
 
    item = {
     New cls_Entidad.clsJsonItem With {
         .unidad_de_medida = itemDetalleRecibo.s_unidad_de_medida,
         .codigo = itemDetalleRecibo.s_servicio,
         .descripcion = util.borrar_caracteres_especiales(itemDetalleRecibo.s_detalle),
         .cantidad = itemDetalleRecibo.i_cantidad,
         .valor_unitario = itemDetalleRecibo.de_precio,
         .precio_unitario = itemDetalleRecibo.s_valor_unitario,
         .descuento = itemDetalleRecibo.s_descuento,
         .subtotal = itemDetalleRecibo.de_subTotal,
         .tipo_de_igv = itemDetalleRecibo.s_tipo_de_igv,
         .igv = itemDetalleRecibo.de_igv,
         .total = itemDetalleRecibo.de_total,
         .anticipo_regularizacion = itemDetalleRecibo.b_anticipo_regularizacion,
         .anticipo_serie = itemDetalleRecibo.s_anticipo_documento_serie,
    .anticipo_documento_numero = itemDetalleRecibo.s_anticipo_documento_numero
       }
    }
 
Next
json.items = item
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder