Registro De Coordinadores
Private Sub Tab_CoordinadoresBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()Me.Tab_CoordinadoresBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Sispre2012DataSet)
End Sub
Private Sub Coordina_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'Sispre2012DataSet.Tab_Localidades' Puede moverla o quitarla según sea necesario.
'Me.Tab_LocalidadesTableAdapter.Fill(Me.Sispre2012DataSet.Tab_Localidades)
' Me.Tab_CoordinadoresTableAdapter.Fill(Sispre2012DataSet.Tab_Coordinadores)Me.Tab_CoordinadoresTableAdapter.Fill(Sispre2012DataSet.Tab_Coordinadores)
Me.Tab_LocalidadesTableAdapter.Fill(Sispre2012DataSet.Tab_Localidades)
End Sub
Private Sub NumCoorTextBox1_TextChanged(ByVal sender As System.Object,ByVal e As System.EventArgs)
End Sub
Private Sub cNuevoCor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cNuevoCor.Click
' activa los TexBox paraescribir
cNuevoCor.Enabled = False
cGuardarCor.Enabled = True
Ap_PaternoTextBox.Enabled = True
Ap_MaternoTextBox.Enabled = True
NombresTextBox.Enabled =True
DomicilioTextBox.Enabled = True
SexoTextBox.Enabled = True
Folio_CredTextBox.Enabled = True
Cve_ElectorTextBox.Enabled = True'Cve_LocTextBox.Enabled = True
LocalidadTextBox.Enabled = True
Cve_SecTextBox.Enabled = True
Datos_SeccTextBox.Enabled = True
RNMTextBox.Enabled = TrueObservacionesTextBox.Enabled = True
'Pone en Blanco los TexBox
Ap_PaternoTextBox.Focus()
Ap_PaternoTextBox.Text = ""
Ap_MaternoTextBox.Text = ""
NombresTextBox.Text = ""...
Regístrate para leer el documento completo.