For i=1 to 10-Reccount('Table1') Insert into Table1 ((Field(1))) VALUES (1) Next
Dimension aa[10-Reccount('Table1'),1] aa=1 Insert Into Table1 From array aa