Visual Basic.NET - Consulta de Grilla

   
Vista:

Consulta de Grilla

Publicado por Pinky (104 intervenciones) el 21/01/2010 15:41:36
Hola amigos del foro, les comento que estoy tratando de ingresar datos a una grilla, la cual me funciona en la primera fila, pero al momento de ingresar la 2ª fila , esta se monta encima de la primera, es decir, se va borrando la última fila ingresada y no aumenta en más 1 como siempre debe hacerlo, a continuación, les muestro el código que estoy utilizando e través de un Button que se llama cmdingresar.

Protected Sub CMDINGRESAR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMDINGRESAR.Click
dt = Session("tabla")
n_rev = Session("revision")
If Not CMDINGRESAR.Text = "Modificar" Then
If MsgBox("¿Desea seguir ingresando.?", MsgBoxStyle.YesNo, "Sistema") = vbYes Then
Dim row As Data.DataRow
row = dt.Tables("Grilla").NewRow()
row("N_Filas") = CInt(TXTITEM.Text)
row("Marca_Vehiculo") = TXTMARCA.Text
row("Modelo_Vehiculo") = TXTMODELO.Text
dt.Tables("Grilla").Rows.Add(row)
Grilla.DataSource = dt.Tables("Grilla")
Grilla.DataBind()
TXTMARCA.Enabled = False
TXTMODELO.Text = ""
TXTITEM.Text = TXTITEM.Text + 1
TXTMODELO.Focus()
Else
TXTMARCA.Text = ""
TXTMODELO.Text = ""
TXTMARCA.Focus()
End If
Else
If MsgBox("¿Desea Modificar estos datos.?", vbYesNo, "Sistema") = vbYes Then
dt = Session("tabla")
MsgBox(indice_fila.Text)
dt.Tables("grilla").Columns(0).Unique = True
dt.Tables("grilla").Rows.Find(CInt(indice_fila.Text)).Delete()
Dim row As Data.DataRow = dt.Tables("grilla").NewRow
row("N_Filas") = TXTITEM.Text
row("Marca_Vehiculo") = TXTMARCA.Text
row("Modelo_Vehiculo") = TXTMODELO.Text
Try
dt.Tables("grilla").Rows.Add(row)
Catch ex As Exception
MsgBox("error al modificar" & ex.Message)
End Try
edit_mode = False
TXTMARCA.Text = ""
TXTMODELO.Text = ""
TXTMARCA.Focus()
CMDINGRESAR.Text = "Ingresar"
Grilla.DataBind()
Else
TXTMARCA.Text = ""
TXTMODELO.Text = ""
TXTMARCA.Focus()
End If
End If
End Sub

Sub validar(ByVal obj As Object, ByVal e As EventArgs) Handles CMDINGRESAR.Click
If Page.IsValid Then
End If
End Sub

favor de ayudarme ya que he intentado de todo y nada me sirve, desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consulta de Grilla

Publicado por neid (10 intervenciones) el 21/01/2010 18:00:45
talvez te falta actualizar tu grilla yo agrego algo como esto

'Declaro mi dataadapter con la consulta hacia la tabla que quiero
Dim da As New SqlDataAdapter("select * from tabla1", conexion)
'Declaro el datatable
Dim dt As New DataTable
dt = New DataTable
'Lleno el dataadapter
da.Fill(dt)
'Actualizo mi datagrid
Me.DataGridView1.DataSource = dt

Veo que trabajamos con diferentes objetos pero talvez te sirva como referencia espero poder ayudar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar