Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: omarinho23 en Abril 16, 2010, 07:00:02 pm
-
Buenas con todos consultando de nuevo con uds y les agradesco por adelantado la respuesta o guia q me den trato d abrir los datos de mi BD con un ListView y me sale este error los pasos son estos:
1ro - abro la BD con el LV
2do - ago clic en cual dato del LV ( ejemplo el dato nº 7 )
3ro - sale un form q sale que opcion de modificacion debo seleccionar ( mi codigo es )
Private Sub ChameleonBtn1_Click()
Dim i As Integer
' verifica que hay datos en el ListView y que hay uno seleccionado
If (LV.ListItems.Count = 0) Then <<<<<<<<<< ahi sale el error
MsgBox "No hay ningún regisro para editar", vbInformation
Exit Sub
End If
If (LV.SelectedItem Is Nothing) Then
MsgBox "Debe seleccionar previamente un registro para poder editarlo", vbInformation
Exit Sub
End If
With frmImpresionCIT3
' obtiene el elemento seleccionado
.lblID = LV.SelectedItem.Text
For i = 1 To 18
.Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
Next
.lblFecha = LV.SelectedItem.ListSubItems(1).Text
.IdRegistro = LV.SelectedItem.Text
.ACCION = editar_registro
.Show
End With
End Sub
algo he omitido? alguna correcion. gracias!
-
Realmente tu Listview ser llama LV?
Saludos.
-
si mi listview tiene nombre LV
-
alguien q me ayude o me saque de dudas por favor?
-
Creo que es problem del LV, ya sea que no se llame asi y que le tienes al caption LV y al name otro nombre o que la función de la base de datos no es correcta para conectar con el LV puede ser el objeto de visual basic o puede ser un campo o tabla de la base de datos. tienes que rebisar bien.
-
Buenas con todos consultando de nuevo con uds y les agradesco por adelantado la respuesta o guia q me den trato d abrir los datos de mi BD con un ListView y me sale este error los pasos son estos:
1ro - abro la BD con el LV
2do - ago clic en cual dato del LV ( ejemplo el dato nº 7 )
3ro - sale un form q sale que opcion de modificacion debo seleccionar ( mi codigo es )
Private Sub ChameleonBtn1_Click()
Dim i As Integer
' verifica que hay datos en el ListView y que hay uno seleccionado
If (LV.ListItems.Count = 0) Then <<<<<<<<<< ahi sale el error
MsgBox "No hay ningún regisro para editar", vbInformation
Exit Sub
End If
If (LV.SelectedItem Is Nothing) Then
MsgBox "Debe seleccionar previamente un registro para poder editarlo", vbInformation
Exit Sub
End If
With frmImpresionCIT3
' obtiene el elemento seleccionado
.lblID = LV.SelectedItem.Text
For i = 1 To 18
.Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
Next
.lblFecha = LV.SelectedItem.ListSubItems(1).Text
.IdRegistro = LV.SelectedItem.Text
.ACCION = editar_registro
.Show
End With
End Sub
algo he omitido? alguna correcion. gracias!
Cual es el error que te da?
-
estuve viendo y me ayudaron y agrege unos datos
Private Sub ChameleonBtn1_Click()
Dim i As Integer
On Error Resume Next <<< agregue esto
' verifica que hay datos en el ListView y que hay uno seleccionado
If (LV.ListItems.Count = 0) Then
MsgBox "No hay ningún regisro para editar", vbInformation
Exit Sub
End If
If (LV.SelectedItem Is Nothing) Then
MsgBox "Debe seleccionar previamente un registro para poder editarlo", vbInformation
Exit Sub
End If
With frmImpresionCIT3
' obtiene el elemento seleccionado
.lblID = LV.SelectedItem.Text
For i = 1 To 10
.Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
Next
.lblFecha = LV.SelectedItem.ListSubItems(1).Text
.IdRegistro = LV.SelectedItem.Text
.ACCION = editar_registro1
.Show
End With
End Sub
y ahora no sale error si no que ahora el punto es q no reconoce el ListView o no se si es la base de datos me sale q no hay registro.!