1
« en: Jueves 21 de Junio de 2007, 16:53 »
Long ll_fila
for i=1 to dw_1.RowCount()
ll_fila = dw_2.InsertRow(0)
dw_2.SetItem(ll_fila,"campo_1",dw_1.GetItemString(i,"campo_1")
dw_2.SetItem(ll_fila,"campo_2",dw_1.GetItemString(i,"campo_2")
dw_2.SetItem(ll_fila,"campo_3",dw_1.GetItemString(i,"campo_3")
next
dw_1.RowsMove(1, dw_1.DeletedCount(), Delete!,dw_1, 1, Primary!)
Con eso es suficiente, espero te sirva.