Ver Mensaje Individual
  #2 (permalink)  
Antiguo 27/04/2011, 07:39
Wuakap
 
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