Hola a todos.
Estoy haciendo una pequeña aplicaión y tengo un Listview con 3 registros en mi tabla de Access y quiero que cuando guarde no me borre el primer registro sino que lo guarde al final de la lista. ¿Existe alguna forma de indicarle a Visual Studio 2005 que lo guarde al final de los registros?
EL código de los Botones Nuevo y Guardar es el siguiente
Botón Nuevo:
Private Sub cmdNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNuevo.Click
'"Agregar una nueva fila a un Datatable"
Dim newMascotaRow As VeterinariaDS.MascotaRow
newMascotaRow = VeterinariaDS.Mascota.NewMascotaRow
VeterinariaDS.Mascota.Rows.Add(newMascotaRow)
NombreTextBox.Focus() 'Envia el foco a esta caja de texto.
End Sub
Botón Guardar:
NombreTextBox.Focus()
'"Guardar los datos a la BD"
Try
Me.Validate()
Me.MascotaBindingSource.AddNew()
Me.MascotaTableAdapter.Update(Me.VeterinariaDS.Mascota)
'MsgBox("Update successful")
Catch ex As Exception
MsgBox("Update failed")
End Try
'Limpia las cajas de texto
NombreTextBox.Text = ""
EspecieTextBox.Text = ""
EdadTextBox.Text = ""
'Actualizar la Lista de Mascotas
LlenarLista()
El código para llenar el ListView con los datos de la tabla es:
Private Sub LlenarLista()
lsvMascota.Items.Clear()
Dim i As Integer
For i = 0 To VeterinariaDS.Tables("Mascota").Rows.Count - 1
lsvMascota.Items.Add(VeterinariaDS.Tables("Mascota").Rows(i)("IDMascota"))
lsvMascota.Items(i).SubItems.Add(VeterinariaDS.Tables("Mascota").Rows(i)("Nombre"))
lsvMascota.Items(i).SubItems.Add(VeterinariaDS.Tables("Mascota").Rows(i)("Especie"))
lsvMascota.Items(i).SubItems.Add(VeterinariaDS.Tables("Mascota").Rows(i)("Edad"))
Next
End Sub
Si alguien puede orientarme con esto se lo agradeceré mucho.