怎样在VFP中创建函数,并给函数添加代码在VFP中自己怎么添加新函数进去,比如说新函数叫AutoAdd,然后再怎么给它添加代码?新定义的函数的.PRG文件应该保存在哪里呢
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/23 20:39:50
怎样在VFP中创建函数,并给函数添加代码在VFP中自己怎么添加新函数进去,比如说新函数叫AutoAdd,然后再怎么给它添加代码?新定义的函数的.PRG文件应该保存在哪里呢
怎样在VFP中创建函数,并给函数添加代码
在VFP中自己怎么添加新函数进去,比如说新函数叫AutoAdd,然后再怎么给它添加代码?
新定义的函数的.PRG文件应该保存在哪里呢
怎样在VFP中创建函数,并给函数添加代码在VFP中自己怎么添加新函数进去,比如说新函数叫AutoAdd,然后再怎么给它添加代码?新定义的函数的.PRG文件应该保存在哪里呢
自定义函数就是自己写的程序,后缀也是：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_X
c=QuYu
endif
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()