调用表单时如何传递参数？（新手请教） - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 调用表单时如何传递参数？（新手请教）

标题：调用表单时如何传递参数？（新手请教）

只看楼主

lxd1260

来　自：湖北武汉
等　级：新手上路
帖　子：31
专家分：0
注　册：2010-8-20
结帖率：50%

楼主

已结贴√ 问题点数：10 回复次数：5

调用表单时如何传递参数？（新手请教）

我做了一个表单，要在表单中的按钮的事件中调用另外一个表单，这时被调用的表单不显示出来，怎么办？
而且，想传递一个参数给被调用的表单，又不知道该如何传递。
请大侠们指教！

搜索更多相关主题的帖子: 参数　表单　

2010-08-26 18:47

lxd1260

来　自：湖北武汉
等　级：新手上路
帖　子：31
专家分：0
注　册：2010-8-20

第 2 楼

得分:0

被调用的表单的Init 代码如下：
parameters str_info

sele cpjg
fj_name0 = subs(str_info,1,rat(".",str_info)-1)+".xls"       &&生成EXCEL表的文件名
fj_name0 = uppe(fj_name0)

if file(fj_name0)   &&检测到文件已经存在，是否覆盖？覆盖则重写
    if !warningw("文件 "+fj_name0+" 已经存在,是否覆盖?")    &&不覆盖,则退出
        return
    else  &&覆盖,则重写文件
        copy to &fj_name0 xls
    endif
else    &&不存在，则生成
    copy to &fj_name0 xls
endif

运行时出现：函数参数的值、类型或数目无效

2010-08-26 18:59

hu9jj

来　自：红土地
等　级：贵宾
威　望：396
帖　子：11713
专家分：43267
注　册：2006-5-13

第 3 楼

得分:5

改成如下的试试：
parameters cInfo
str_info=cInfo

sele cpjg
fj_name0 = subs(str_info,1,rat(".",str_info)-1)+".xls"       &&生成EXCEL表的文件名
fj_name0 = uppe(fj_name0)

if file(fj_name0)   &&检测到文件已经存在，是否覆盖？覆盖则重写
    if !warningw("文件 "+fj_name0+" 已经存在,是否覆盖?")    &&不覆盖,则退出
        return
    else  &&覆盖,则重写文件
        copy to &fj_name0 xls
    endif
else    &&不存在，则生成
    copy to &fj_name0 xls
endif