| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1832 人关注过本帖
标题:调用表单时如何传递参数?(新手请教)
只看楼主 加入收藏
lxd1260
Rank: 1
来 自:湖北武汉
等 级:新手上路
帖 子:31
专家分:0
注 册:2010-8-20
结帖率:50%
收藏
已结贴  问题点数:10 回复次数:5 
调用表单时如何传递参数?(新手请教)
我做了一个表单,要在表单中的按钮的事件中调用另外一个表单,这时被调用的表单不显示出来,怎么办?
而且,想传递一个参数给被调用的表单,又不知道该如何传递。
请大侠们指教!
搜索更多相关主题的帖子: 参数 表单 
2010-08-26 18:47
lxd1260
Rank: 1
来 自:湖北武汉
等 级:新手上路
帖 子:31
专家分:0
注 册:2010-8-20
收藏
得分: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
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11798
专家分:43421
注 册:2006-5-13
收藏
得分: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

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2010-08-26 19:43
lxd1260
Rank: 1
来 自:湖北武汉
等 级:新手上路
帖 子:31
专家分:0
注 册:2010-8-20
收藏
得分:0 
回复 3楼 hu9jj
谢谢3楼的大侠!改过就可以了!
2010-08-27 11:44
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
收藏
得分:5 
为什么那样改  就可以了呢 还有问一下 这个warning是个函数吗 这个函数什么意思啊
2010-08-27 14:23
lxd1260
Rank: 1
来 自:湖北武汉
等 级:新手上路
帖 子:31
专家分:0
注 册:2010-8-20
收藏
得分:0 
回复 5楼 pmc1234
warningw是一个函数,我用来提示并确认的函数。返回的只有一个值:.t. 或 .f.
2010-08-27 15:44
快速回复:调用表单时如何传递参数?(新手请教)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012175 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved