vfp:运行时从变量, 表, 和其它文本中运行多行代码

示例一：

s8.prg

lparameter a

IF a=0
   ? '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

 

=========================================================

允许你在运行时从变量, 表, 和其它文本中运行多行代码。
ExecScript(cExpression [, eParameter1, eParameter2, ...])
参数
cExpression
要作为为代码运行的文本, 变量或打入的串或备注字段。
eParameter1, eParameter2,…
可选。 指定要传递给脚本的参数(在脚本的第一行有 parameters 语句)。
返回值
返回值是由脚本中的 cExpression 中返回的值。 如果脚本无返回值, Visual FoxPro 返回 .T.
备注
ExecScript( ), 与宏扩展不同, 提供了与在命令窗口中选择多行代码然后按回车键相同的效果。
示例
该对象创建一个表单并显示新建表单对象的 AutoCenter 属性值。注意使用 CHR(13) 来分隔两行代码。
?EXECSCRIPT("oForm=CREATEOBJECT('Form')"+CHR(13)+"?oForm.AutoCenter")