Visual Basic - ciclo

Life is soft - evento anual de software empresarial
   
Vista:

ciclo

Publicado por sace (41 intervenciones) el 12/04/2010 05:22:40
Buenas como podria convertir esto en un ciclo en lugar de repetirlo innecesariamente :S, esto se tiene que ir cumpliento si text2.text es diferente a vacio, luego si text10 es diferente a vacio y asi sucesivamente.GRACIAS

'Data5.Recordset.AddNew
'Data5.Recordset.Fields("idfactura") = pedido.Text
'Data5.Recordset.Fields("idcodigo") = Text2.Text
'Data5.Recordset.Update

'Data5.Recordset.AddNew
'Data5.Recordset.Fields("idfactura") = pedido.Text
'Data5.Recordset.Fields("idcodigo") = Text10.Text
'Data5.Recordset.Update

'Data5.Recordset.AddNew
'Data5.Recordset.Fields("idfactura") = pedido.Text
'Data5.Recordset.Fields("idcodigo") = Text18.Text
'Data5.Recordset.Update
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

RE:ciclo

Publicado por Pedro Luis (128 intervenciones) el 12/04/2010 09:20:14
Tienes que poner indice a Text (Propiedad Index), con lo que tendrás Text(1),Text(2),Text(3), etc i entonces la cosa quedaría así

if Text(index)<>"" then
Data5.Recordset.AddNew
Data5.Recordset.Fields("idfactura") = pedido.Text
Data5.Recordset.Fields("idcodigo") = Text(index).Text
Data5.Recordset.Update
Endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ciclo

Publicado por sace (41 intervenciones) el 12/04/2010 16:17:17
Ok gracias, y como colocaria el acumulador??
Para que vaya incrementando 8
GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ciclo

Publicado por Pedro Luis (128 intervenciones) el 13/04/2010 09:05:38
¿Acumulador?, ¿que acumulador?, no hay nada que acumular, el indice viene en el nombre del control, uno de los dos no ha entendido nada.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar