- REVISAR LA TABLA ESTUDIANTES Y VERIFICAR QUE EL CAMPO COD_EST TENGA EL TAMAÑO DE 9 EN SU CAMPO. (OJO QUITAR LAS RELACIONES PARA PODER MODIFICAR)
- REVISAR EN EL DATASET LA TABLA ESTUDIANTES Y AGREGAR "ORDER BY COD_EST"
- BOTÓN NUEVO
Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
deshabilitar()
Dim cod As Integer
ASIGCURPARBindingSource.MoveLast()
cod = Cod_asig_cpTextBox.Text
cod = (CInt(cod) + 1)
ASIGCURPARBindingSource.AddNew()
Cod_asig_cpTextBox.Text = cod.ToString("000000000")
Cod_asig_cpTextBox.Focus()
End Sub
0 comentarios:
Publicar un comentario