我在开发程序中，经常会遇到，在一个表单按钮click事件中，需要调用一个.prg（或其他代码）来获取一个值，然后接着往后运行。如：
sele 1
use day1
bbb='05/03/2002' && 一个日期变量
do RunDate.prg && 通过bbb给出的阳历计算出农历，变量 uuu
sele 2
use day2
loca for rq=uuu && 根据农历查出来
* ======================================== 以上是个例子，但是结果在执行 do rundate.prg 时，下面已经进行了。如果能执行 do rundate.prg 时，再接着往下执行。
* === \\ 用模式一表单那种方式可行，但很麻烦，还有没有其他办法。望指教！
------解决方案--------------------------------------------------------
do RunDate.prg 此处可改为自定义函数。比如函数名为:AA
IF AA(?)=? &&此处不一定为等号
代码
ELSE
代码
ENDIF
或者用：IIF()
------解决方案--------------------------------------------------------
把RunDate.prg 做成在参数的自定义函数比较好用
用法如下
sele 1
use day1
bbb='05/03/2002' && 一个日期变量
uuu= RunDate(bbb) && 通过bbb给出的阳历计算出农历，变量 uuu
sele 2
use day2
loca for rq=uuu && 根据农历查出来
------解决方案--------------------------------------------------------
没太看明白。
有参数，刚好有一个返回值，当然用function了，怎么还去do去呢？
do也好，函数也吧，当然是执行了子程序再返回的，不可能它还没执行就先执行下面了，这个与执行模式表单一样的呀。（都知道模式表单了，说明不是新手了，怎么这个还不知道？）