На данный текст программы VPF 8.0 не ругаецца, всё проходит нормально. А если ее загрузить в шестой версии орёт на ошибку синтаксиса. Что сделать, что работало в шестом? (на данный момент возмущаеца на 6-7 строки)
LOCAL nCount
SELECT R
GO TOP IN R
COUNT TO nCount FOR .T.
IF (nCount>=5)
INSERT INTO R1(A1, A2, A3, A4) select c. A1, c. A2, c. A3, c. A4 FROM R c
INSERT INTO R2(A5, A6, A7, A8) select c. A5, c. A6, c. A7, c. A8 FROM R c
thisform.grid3.Refresh
thisform.grid4.Refresh
SELECT R
IF !EMPTY("R")
DELETE ALL IN R
thisform.grid1.Refresh
endif
ELSE
INSERT INTO R (A1, A2, A3, A4, A5, A6, A7, A8) VALUES ("!!!", "!!!", "!!!", "!!!", "!!!", "!!!", "!!!", "!!!")
ENDIF

Ну а если я напишу вот так:
INSERT INTO R1(A1, A2, A3, A4) values (R.A1, R.A2, R.A3, R.A4)
INSERT INTO R2(A5, A6, A7, A8) values (R.A5, R.A6, R.A7, R.A8)

То вообще ничего не вставляет

Попробовала аппендом, пишет ошибку таблица R is read only, как ее сделать is not read only???
LOCAL nCount
SELECT R
GO TOP IN R
COUNT TO nCount FOR .T.
IF (nCount>=2)
sELECT R1
APPEND FROM C:\1\Data\r.dbf
select R2
append from C:\1\Data\r.dbf
thisform.grid3.Refresh
thisform.grid4.Refresh
SELECT R
IF !EMPTY("R")
DELETE ALL IN R
thisform.grid1.Refresh
endif
ELSE
INSERT INTO R (A1, A2, A3, A4, A5, A6, A7, A8) VALUES ("!!!", "!!!", "!!!", "!!!", "!!!", "!!!", "!!!", "!!!")
ENDIF