Pregunta: | 44506 - DETALLE EN TRUEDBGRID |
Autor: | Paul Hernàndez Garcìa |
Hola, tengo un detalle al usar un data y un Truebdgrid. Resulta que teenemos una aplicaciòn que tiene un data ligado a un TDBgrig, tenemos a opciòn de eliminar un registro y poder agregar otro. Cuando eliminamos un registro mediante la opciòn implicita en Truedbgrid hacemos lo siguiente: Private Sub TDBGrid1_BeforeDelete(Cancel As Integer) If MsgBox("Esta seguro de eliminar el articulo de la factura", vbOKCancel, "Eliminando Articulo .....") = vbOK Then If TipoDeIngreso = False Then Pilabasura(cont_PILA).idart = TDBGrid1.Columns(0).Value Pilabasura(cont_PILA).cantidad = TDBGrid1.Columns(3).Value Pilabasura(cont_PILA).precio = TDBGrid1.Columns(4).Value cont_PILA = cont_PILA + 1 Else numrow = numrow - 1 End If Else Cancel = 1 End If frmdetsal.TDBGrid1.RefetchRow frmdetsal.TDBGrid1.Refresh End Sub Y borra correctamente el registro, pero al agregar uno nuevo, ademàs de agregar el nuevo registro, agrega un linea sin datos (en blanco) y cuando quiero eliminar el registro en blanco me marca error. "NO COINCIDEN LOS TIPOS" Lo que quiero es que no aparezca el renglon en blanco, lo tratè de hacer con rebin, con refresh y con RefetchRow y nada. Agradezco este espacio y agradezco de antemano las respuestas. Saludos desde LAgunas, Oaxaca, México |