from the FP Room today...
Kenneth Brody
kenbrody at bestweb.net
Tue May 2 10:09:43 PDT 2006
Quoting John Esak (Tue, 2 May 2006 12:34:33 -0400):
>
>
> To the guys who were in the FP Room today... you probably figured it
> out...
> but here is the corrected prc.table. It posts (value) to the designated
> field. Hope you caught that.
> JE
>
>
> :field ne "":goto doit:
> ::declare field(3,.0,g), value(30,*,g):
> ask_f::input popup field "Which field do you want to modify? ":
> :@sk eq "BRKY":exit:
> :field eq "":goto ask_f:
> ask_v::input popup value "What value do you want to put in this field?
> ":
> :@sk eq "BRKY":exit:
> doit:'doit::
> ::gosub (field) of do_1, do_2, do_3:
> ::end:
> do_1:'do_1::
> ::1=value; return:
> do_2:'do_2::
> ::2=value; return:
> do_3:'do_3::
> ::3=value; return:
I wasn't in the room, so perhaps you are doing more than is apparent
by just looking at this snippet.
However, why not just replace the doit lines with:
doit
Then: dim MyRecord[3]:1
If: field gt "0" and field le "3"
Then: MyRecord[field] = value
Then: end
The "if" line can be eliminated if you pre-check "field" for valid
values.
--
KenBrody at BestWeb dot net spamtrap: <g8ymh8uf001 at sneakemail.com>
http://www.hvcomputer.com
http://www.fileProPlus.com
More information about the Filepro-list
mailing list