Thanks for the suggestions. This is the code I ended up generating and
it works for me.
*(*********************************************************************************************************************)
SET VAR vland TEXT
SET VAR vrange INTEGER
SET VAR vrange1 TEXT
SET VAR vrangecnt INTEGER = 1
SET VAR vrow INTEGER
SET VAR vrow1 TEXT
SET VAR vrowcnt INTEGER = 1
DIALOG 'What name do you want for this land [eg. 028601 max of 8 char :
' vland vland 1
DIALOG 'How many plots WIDE is this yield trial land [eg. 50] :' vrow1
vrow1 1
DIALOG 'How many ranges DEEP is this yield trial land [i.e. 11] :'
vrange1 vrange1 1
SET VAR vrange = .vrange1
SET VAR vrow = .vrow1
WHILE vrowcnt <= .vrow THEN
INSERT INTO field values (NULL, NULL, NULL, NULL, .vland,
.vrangecnt, .vrowcnt, 'CMD', +
'01/01/02', '01/01/02', NULL, NULL, NULL,NULL,NULL,NULL)
SET VAR vrowcnt = (.vrowcnt +1)
WHILE vrangecnt <= .vrange THEN
INSERT INTO field values (NULL, NULL, NULL, NULL, .vland,
.vrangecnt, .vrowcnt, 'CMD', +
'01/01/02', '01/01/02', NULL, NULL, NULL,NULL,NULL,NULL)
SET VAR vrowcnt = (.vrowcnt +1)
IF vrowcnt > .vrow THEN
SET VAR vrangecnt = (.vrangecnt + 1)
SET VAR vrowcnt = 1
ENDIF
IF vrangecnt > .vrange THEN
GOTO EndOfProgram
ENDIF
ENDWHILE
ENDWHILE
RETURN
*(********************************************************************************************************************************)
Thanks again. This group is great for suggestions.
Bill
>>> [EMAIL PROTECTED] 5/7/2002 9:26:26 AM >>>
Bill, did anyone give you feedback on this topic? Sounds like you
have,
using my nomenclature, 12 STUDY_VARIABLES and a SAMPLE where n=50, or
vice-versa. Lemme' know, as I might have some info f/you.
Later,
Steve in Memphis
> -----Original Message-----
> From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On
> Behalf Of Bill Niehaus
> Sent: Thursday, April 25, 2002 4:36 PM
> Subject: Generating 'empty' rows for a table
>
>
> I am trying to generate enough rows in a table to contain the
> 'elements' of an array that is 50x12 in size.
>
> I thought about the INSERT command, but I'm not sure how to go about
this.
>
> After generating the 'elements' I want to update records by
> filling one column with numbers from 1-50 and a second column
> with numbers from 1-12 until all the records are completed.
>
> Once the records are created, then a form will be used to update
> the remaining fields with data manually input.
>
> TIA, Bill
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: UNSUBSCRIBE rbase-l
> ================================================
> TO SEARCH ARCHIVES:
> http://www.mail-archive.com/rbase-l%40sonetmail.com/
>
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
