Private sub button1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'validacion de la posicion en la tabla Dim pa, pag As Integer pa = BindingSource1.Position pag = BindingSource2.Position 'validacion de los registros a tomar Dim r As DataRow ' es a donde voy a llenar los valores, registro nuevo r = dataset1.Tables(\"
ventas\"
).NewRow ' es de donde voi a tomar los valores r.Item(\"
cveaut_ven\"
) = dataset1.Tables(\"
autos\"
).Rows(pa).Item(\"
cve_aut\"
) r.Item(\"
modaut_ven\"
autos\"
).Rows(pa).Item(\"
mod_aut\"
) r.Item(\"
cveage_ven\"
agencia\"
).Rows(pag).Item(\"
cve_age\"
) r.Item(\"
nomage_ven\"
agencia\"
).Rows(pag).Item(\"
nom_age\"
) Dim cantidad As Integer 'inputbox (\"
pregunta\"
, \"
Titulo de la ventana\"
,\"
valor inicial del recuadro\"
 cantidad = InputBox(\"
cuantas unidades?\"
, \"
captura de unidades\"
, \"
0\"
) r.Item(\"
cant_vent\"
) = cantidad 'llena el total r.Item(\"
total_ven\"
) = cantidad * dataset1.Tables(\"
autos\"
).Rows(pa).Item(\"
pre_aut\"
) 'es para despleghar los valores en la tabla, registro ya lleno!! dataset1.Tables(\"
ventas\"
).Rows.Add(r) End Sub

Private sub button1

Más contenido relacionado

Destacado (13)

Último (17)

Private sub button1