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