borrar en un dw varios registros a la vez
Publicado por martin guevara s (13 intervenciones) el 06/05/2003 18:57:19
tengo en un dw un campo check el cual me permite verifcar si el registro esta o no seleccionado
el codigo del evento clicked del boton eliminar es:
este codigo borra a veces en otras no
gracias por su cooperacion
el codigo del evento clicked del boton eliminar es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
IF li_count <> 0 THEN
li_tot_estcheck_1 = 0
FOR li_fila = 1 TO li_count
IF dw_detalle_oferta.object.estcheck[li_fila] = '1' THEN
li_tot_estcheck_1 = li_tot_estcheck_1 + 1
END IF
NEXT
li_fila = 1
li_tot_estcheck_2 = 0
DO WHILE li_fila <= li_count
IF dw_detalle_oferta.object.estcheck[li_fila] = '1' THEN
dw_detalle_oferta.DeleteRow(li_fila)
dw_detalle_oferta.AcceptText()
dw_detalle_oferta.Update()
li_tot_estcheck_2 = li_tot_estcheck_2 + 1
END IF
IF li_tot_estcheck_2 = li_tot_estcheck_1 THEN EXIT
li_fila = li_fila + 1
LOOP
COMMIT;
este codigo borra a veces en otras no
gracias por su cooperacion
Valora esta pregunta
0