Nuevo registro en datagrid Hola:
Alguien me puede ayudar con una duda que tengo de como agregar un registro al datagrid, porque ahorita ya se agrega fisicamente pero los campos los relleno por programa y fijos , pero como le puedo hacer para que pida los campos y agregue el registro a la base de datos .
Actualmente tengo un boton de agregar y
tengo este código que funciona bien , pero no se como hacerle para que los campos nuevos no sean fijos
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With ds.Tables("pacientes")
Dim Fila As System.Data.DataRow = .NewRow()
Fila("IdPaciente") = "ghhh" ESTO
Fila("Nombrepaciente") = "prueba" QUE
Fila("Fechanacimiento") = "10/10/2001" NO
Fila("Direccion") = "Angeles" SEA
Fila("Notas") = "Nada de notas" CONSTANTE
.Rows.Add(Fila)
binddatagrid()
inicia_adapter_pacientes()
datitles.Update(ds, "pacientes")
'esto me coloca en la ultima pagina
DataGrid1.CurrentPageIndex = DataGrid1.PageCount - 1
With DataGrid1
Dim oEvento As New _
System.Web.UI.WebControls.DataGridCommandEventArgs (.Items(.Items.Count - 1), DataGrid1, New System.Web.UI.WebControls.CommandEventArgs( _
"Editar", Nothing))
datagrid1_EditCommand1(DataGrid1, oEvento)
Button1.Attributes.Clear()
End With
End With
Try
cn.Open()
Catch miexception As System.Exception
Console.WriteLine(miexception.Message)
End Try
Try
'llenar el adaptador que se llama datitles con el insert
inicia_adapter_pacientes()
datitles.Update(ds, "pacientes")
'datitles.Fill(ds, "consulta")
binddatagrid()
Catch miexception As System.Exception
Console.WriteLine(miexception.Message)
End Try
Button1.Enabled = False
End Sub
Private Sub datagrid1_EditCommand1(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles DataGrid1.EditCommand
DataGrid1.EditItemIndex = e.Item.ItemIndex
binddatagrid()
End Sub
Gracias por su ayuda
