programa para dar de alta en visual 10
Private Sub AltasBindingNavigatorSaveItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs)
Me.Validate()
Me.AltasBindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.ParaescolarDataSet)
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en latabla
'ParaescolarDataSet.altas' Puede moverla o quitarla según sea necesario.
Me.AltasTableAdapter.Fill(Me.ParaescolarDataSet.altas)
MatriculaTextBox.Enabled = False
MatriculaTextBox.Visible =False
Nombre_compTextBox.Enabled = False
Nombre_compTextBox.Visible = False
GrupoTextBox.Enabled = False
GrupoTextBox.Visible = False
EspecialidadTextBox.Enabled = False
EspecialidadTextBox.Visible= False
Nom_paraescolarTextBox.Enabled = False
Nom_paraescolarTextBox.Visible = False
Nom_profTextBox.Enabled = False
Nom_profTextBox.Visible = False
Fech_inicioDateTimePicker.Enabled = FalseFech_inicioDateTimePicker.Visible = False
Comentado [V1]: Estas líneas se tienen que convertir a
falsas
End Sub
Private Sub AltasBindingNavigator_RefreshItems(ByVal sender As System.Object,ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim mitabla As DataTable = ParaescolarDataSet.altasDim cfilas As DataRowCollection = mitabla.Rows
Dim nuevafila As DataRow
Dim i As Integer
Dim n As Integer
Dim tamaño As Integer
n = AltasBindingSource.Count
Dim bandera As Boolean
bandera = Truei = 1
If (tamaño = 0) Then
MsgBox("tabla vacia")
Else
End If
Do
If (Trim(MatriculaTextBox.Text) = Trim(TextBox1.Text)) Then
Comentado [V2]: Esta línea se encarga de mandar a traer
labase de datos
Comentado [V3]: Esta línea conecta la tabla
Comentado [V4]: Inserta datos
bandera = False
Else
AltasBindingSource.MoveNext()
i = i + 1
End If
Comentado [V5]: Este código es...
Regístrate para leer el documento completo.