| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 553 人关注过本帖
标题:自定义函数如何返回多个值或对象
只看楼主 加入收藏
radiofan
Rank: 2
等 级:论坛游民
威 望:1
帖 子:77
专家分:97
注 册:2006-7-30
结帖率:50%
  已结贴   问题点数:20  回复次数:11   
自定义函数如何返回多个值或对象
自定义函数如何返回多个值或对象,return只能返回一个值,只能用public a1,a2,……吗?
搜索更多相关主题的帖子: 多个 对象 自定义 返回 函数 
2019-09-06 09:54
radiofan
Rank: 2
等 级:论坛游民
威 望:1
帖 子:77
专家分:97
注 册:2006-7-30
  得分:0 
FUNCTION otest_connection(yname,ypass,robj,rconn)

        PUBLIC &robj,&rconn
……
……
……
            &robj = testobj
            &rconn = testconn
            RETURN .T.

ENDFUNC
2019-09-06 10:35
zhken
Rank: 2
等 级:论坛游民
帖 子:90
专家分:74
注 册:2012-9-21
  得分:3 
FUNCTION ABC(AA1,BB1)
LPARAMETERS AA1,BB1
AA='11'+AA1+' 22 '+BB1

……
……

RETURN AA
ENDFUNC

*  F=ABC('F','G')
*  ? F &&F='11F 22 G'
2019-09-06 11:12
radiofan
Rank: 2
等 级:论坛游民
威 望:1
帖 子:77
专家分:97
注 册:2006-7-30
  得分:0 
以下是引用zhken在2019-9-6 11:12:23的发言:

FUNCTION ABC(AA1,BB1)
LPARAMETERS AA1,BB1
AA='11'+AA1+' 22 '+BB1

……
……

RETURN AA
ENDFUNC

*  F=ABC('F','G')
*  ? F &&F='11F 22 G'

只能返回AA单个值
2019-09-06 11:15
radiofan
Rank: 2
等 级:论坛游民
威 望:1
帖 子:77
专家分:97
注 册:2006-7-30
  得分:0 
以下是引用radiofan在2019-9-6 10:35:03的发言:

FUNCTION otest_connection(yname,ypass,robj,rconn)

        PUBLIC &robj,&rconn
……
……
……
            &robj = testobj
            &rconn = testconn
            RETURN .T.

ENDFUNC

可以根据用户定义返回通过robj和rconn传入的多个值。
2019-09-06 11:16
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:200
帖 子:7878
专家分:19533
注 册:2012-2-5
  得分:3 
通过数组解决问题

坚守VFP最后的阵地
2019-09-06 11:45
mrytfeiup
Rank: 1
等 级:新手上路
帖 子:1
专家分:3
注 册:2019-9-9
  得分:3 
返回   数组  结构 地址
2019-09-09 11:27
gs2536785678
Rank: 8Rank: 8
等 级:贵宾
威 望:19
帖 子:325
专家分:964
注 册:2017-7-16
  得分:3 
我的认识是这样的,子程序有两种,过程与函数
如果要返回唯一的一个值,请设置成函数
函数有PROC开头最后必须通过RETURN返回唯一值
默认情况下函数是按值传递。
如果要返回多个值或者不返回值,请设置成过程
过程用PROC开头,最后不用写RETURN语句
默认情况下过程是按地址传递。
下面是一个返回多个值的过程的实例
请朋友自己琢磨琢磨。

CLEAR
x=6
y=5
z=9
?x
?y
?z
?
DO zcx WITH x,y,z
?x
?y
?z

************
PROCEDURE zcx
PARAMETERS mx,my,mz
mx=mx*2
my=my+mx
mz=mz-1
ENDPROC

[此贴子已经被作者于2019-9-9 14:03编辑过]

2019-09-09 13:57
wengjl
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:81
帖 子:1714
专家分:3059
注 册:2007-4-27
  得分:3 
谢谢,学习了……

只求每天有一丁点儿的进步就可以了
2019-09-09 14:36
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:221
帖 子:6814
专家分:30152
注 册:2014-5-20
  得分:3 
返回一个表,数据够多了吧
2019-09-09 20:46
快速回复:自定义函数如何返回多个值或对象
数据加载中...
 
   



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

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