27/04/2011, 07:39
|
| | Fecha de Ingreso: mayo-2008
Mensajes: 40
Antigüedad: 16 años, 6 meses Puntos: 3 | |
Respuesta: Botones en formularios Eso raquel lo defines tu. Podrias eventualmente definir Insertar_datos() de la siguiente manera:
public sub Insertar_datos(byval accion as string)
if accion="transitoria" then
.... insert o lo que sea
else
.... insert o lo que sea
end if
end sub
y llamar a insertar_datos de la siguiente manera:
Public Sub Definitiva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UBDefinitiva.Click
'Al pulsar definitiva, llamamos a esta Subrutina
Insertar_datos("definitiva")
End Sub
Public Sub Transito_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UBTransito.Click
'Al pulsar transito, llamamos a esta Subrutina
Insertar_datos("transitoria")
End Sub |