I had a huge table which I split into 7 smaller tables and set a relation in the first table (LABORATORY). For every record in LABORATORY there is and only is one relational record in each of the oher 6 tables.

ADD-
I have two command buttons on a form, Add and Undo. When user clicks add I append a blank record to each table and replace some fields with some ID information.
UNDO-
When user clicks undo I issue a TABLEREVERT() and abandon the add operation and expect to revert all tables.

PROBLEM---
My first TABLEREVERT() works while the other 6 TABLEREVERT do not revert the tables.

Is there something I am doing wrong?

Below is my code:
=================

In the load event of the form:
*-------------------------------------------Load()
USE LABORATORY IN 0 ORDER TAG ID OF LABORAROTY SHARED
CURSORSETPROP("Buffering", 2, "LABORATORY")
USE LAB_PHYSICAL IN 0 ORDER TAG CLAB_ID OF LAB_PHYSICAL SHARED
CURSORSETPROP("Buffering", 2, "LAB_PHYSICAL")
USE LAB_VISUAL IN 0 ORDER TAG CLAB_ID OF LAB_VISUAL SHARED
CURSORSETPROP("Buffering", 2, "LAB_VISUAL")
USE LAB_MECHANICAL IN 0 ORDER TAG CLAB_ID OF LAB_MECHANICAL SHARED
CURSORSETPROP("Buffering", 2, "LAB_MECHANICAL")
USE LAB_COMP IN 0 ORDER TAG CLAB_ID OF LAB_COMP SHARED
CURSORSETPROP("Buffering", 2, "LAB_COMP")
USE LAB_TREATMENT IN 0 ORDER TAG CLAB_ID OF LAB_TREATMENT SHARED
CURSORSETPROP("Buffering", 2, "LAB_TREATMENT")
USE LAB_RUNNING IN 0 ORDER TAG CLAB_ID OF LAB_RUNNING SHARED
CURSORSETPROP("Buffering", 2, "LAB_RUNNING")

SET RELATION TO ;
ID INTO LAB_PHYSICAL,;
ID INTO LAB_VISUAL, ;
ID INTO LAB_MECHANICAL, ;
ID INTO LAB_COMP, ;
ID INTO LAB_TREATMENT, ;
ID INTO LAB_RUNNING, ;
CWORKORDERID INTO SALEORDER_ITEMS ;
IN LABORATORY

*-------------------ADD NEW RECORD (COMMAND BUTTON ON THE FORM)-------------
LOCAL ARRAY laLAB_TABLES(6)
LOCAL li
WITH THISFORM
.oCurrentData.RecordAppend()
laLAB_TABLES[1] = "LAB_PHYSICAL"
laLAB_TABLES[2] = "LAB_VISUAL"
laLAB_TABLES[3] = "LAB_MECHANICAL"
laLAB_TABLES[4] = "LAB_COMP"
laLAB_TABLES[5] = "LAB_TREATMENT"
laLAB_TABLES[6] = "LAB_RUNNING"
FOR li = 1 TO ALEN("laLAB_TABLES")
APPEND BLANK IN laLAB_TABLES[li]
REPLACE KEY WITH SYS(2015) IN laLAB_TABLES[li]
REPLACE tAddStamp WITH DATETIME() IN laLAB_TABLES[li]
REPLACE cAddBy WITH pcUserName IN laLAB_TABLES[li]
NEXT li
ENDWITH

*--------ABANDON - UNDO ADDITION OF NEW RECORD (COMMAND BUTTON ON THE FORM)-
WITH THISFORM.oCurrentData
llReturnValue = TABLEREVERT(.F., ._cAlias)
IF NOT llReturnValue = 0
TABLEREVERT(.F., "LAB_PHYSICAL")
TABLEREVERT(.F., "LAB_VISUAL")
TABLEREVERT(.F., "LAB_MECHANICAL")
TABLEREVERT(.F., "LAB_COMP")
TABLEREVERT(.F., "LAB_TREATMENT")
TABLEREVERT(.F., "LAB_RUNNING")
ENDIF