| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 791 人关注过本帖
标题:defaultext()函数返回什么值
取消只看楼主 加入收藏
zrbaddc
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-1-7
收藏
 问题点数:0 回复次数:1 
defaultext()函数返回什么值
各位:
请问defaultext()函数作用是什么,返回什么值?
另:以下过程该如何调用
procedure s-mtof
lparameter s-cfield, s-cfile, s-default-return, s-old-file
local s-temp-str, s-old-file, s-return
clear resource
 s-return=s-default-return
 s-old-file=′′
 if vartype(s-cfield) !=″C″ or vartype(s-cfile) !=″C″ or vartype(s-default-return) !=″C″
   =MessageBox(″参数类型错!″,48,″提示″)
   return ′′
 endif
 if type(″&s-cfield″) != ″M″
   =MessageBox( ″ ′ ″+s-cfield +″ ′ ″+ ″字段必须是二进制备注型数据!″,48,″提示″)
   return s-return
 endif
 s-temp-str = &s-cfield
 if len(s-temp-str) 〈= 128
return s-return
 endif
 s-old-file = alltrim(left(s-temp-str,128))
 if empty(s-cfile)
   s-return=s-old-file
 else
   s-return=defaultext( s-cfile, alltrim(justext(s-old-file)) )
 endif
  =STRTOFILE( substr(s-temp-str,129), s-return, .F.)
 return s-return
endproc
搜索更多相关主题的帖子: defaultext 函数 
2007-01-12 23:31
zrbaddc
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-1-7
收藏
得分:0 
谢谢Tiger5392版主, 调用以上"s-mtof "过程时,那该如何设置实参,如何接收过程的返回值呢?
2007-01-13 17:50
快速回复:defaultext()函数返回什么值
数据加载中...
 
   



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

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