怎样在VFP中创建函数,并给函数添加代码

自定义函数就是自己写的程序,后缀也是：PRG。新建输入指令：modi comm autoadd 很多自带函数有参数,如果你的函数也有参数,请在第一行有效代码写：Para 参数1,参数2。参考：* * 自定义函数：Seekxsb * 用来检测指定XSB编号。若存在,函数将返回。T。* 参数a为搜索条件,b/c返回对应数据。* Parameters a,b,c &&接过参数 Private a,b,c,Xz0,re &&声明为内部变量 Xz0='Sele '+Str(Sele(),4) &&取得目前工作区,以便返回时恢复 Sele 0 &&转到最低空工作区 use Xsb again Order iXsNo &&打开表并指定索引-iXSNO为已有索引,again防止因表已打开而出错。if type('a')='C'。and。Seek(a) &&若参数a字符型(索引为字符型)且能找到。。。b=Name_Xc=QuYuendif re=found() &&是否找到,用于返回真假 use &&关闭这个表 &Xz0 &&宏替换,恢复到原来工作区 Return re &&返回函数结果 为防止调用后影响正常操作,所以多写了些语句,嫌眼杂只要求能看明白的话可简化为：Para a,b,c Sele 0 use Xsb Orde iXsNo if Seek(a) b=Name_X c=QuYu endif Retu foun()