示例一：
s8.prg
lparameter a
IF a=0
? 'a=0'
RETURN .F.
ELSE
? 'a<>0'
? 'a='+STR(a,5)
RETURN .T.
ENDIF
? 'a=0'
RETURN .F.
ELSE
? 'a<>0'
? 'a='+STR(a,5)
RETURN .T.
ENDIF
主程序中：
c_str=filetostr("s8.prg")
=execscrit(c_str,100) && 执行s8的代码，100是参数
示例二：
sc='=messagebox("这仅是个示例",64,"提示")' && sc是变量
=EXECSCRIPT(sc)
示例三
USE dm && 表中存放有vfp代码
scan
?EXECSCRIPT(y1) &&执行存放在字段Y1中的vfp代码
ENDSCAN
use
scan
?EXECSCRIPT(y1) &&执行存放在字段Y1中的vfp代码
ENDSCAN
use
=========================================================
允许你在运行时从变量, 表, 和其它文本中运行多行代码。
ExecScript(cExpression [, eParameter1, eParameter2, ...])
参数
cExpression
要作为为代码运行的文本, 变量或打入的串或备注字段。
eParameter1, eParameter2,…
可选。 指定要传递给脚本的参数(在脚本的第一行有 parameters 语句)。
返回值
返回值是由脚本中的 cExpression 中返回的值。 如果脚本无返回值, Visual FoxPro 返回 .T.
备注
ExecScript( ), 与宏扩展不同, 提供了与在命令窗口中选择多行代码然后按回车键相同的效果。
示例
该对象创建一个表单并显示新建表单对象的 AutoCenter 属性值。注意使用 CHR(13) 来分隔两行代码。
?EXECSCRIPT("oForm=CREATEOBJECT('Form')"+CHR(13)+"?oForm.AutoCenter")
ExecScript(cExpression [, eParameter1, eParameter2, ...])
参数
cExpression
要作为为代码运行的文本, 变量或打入的串或备注字段。
eParameter1, eParameter2,…
可选。 指定要传递给脚本的参数(在脚本的第一行有 parameters 语句)。
返回值
返回值是由脚本中的 cExpression 中返回的值。 如果脚本无返回值, Visual FoxPro 返回 .T.
备注
ExecScript( ), 与宏扩展不同, 提供了与在命令窗口中选择多行代码然后按回车键相同的效果。
示例
该对象创建一个表单并显示新建表单对象的 AutoCenter 属性值。注意使用 CHR(13) 来分隔两行代码。
?EXECSCRIPT("oForm=CREATEOBJECT('Form')"+CHR(13)+"?oForm.AutoCenter")
