7,762
社区成员
发帖
与我相关
我的任务
分享函数中用什么语句来返回值?
此函数在模块中
我用Return "" 显示语法错误
Function getData(ByVal strOutno As String) As String
strOutNoMe = strOutno
If strOutno = vbNullString Then
MsgBox "保税号不能为空！", , "提示!"
Return????????????????????????
Exit Function
End If
End Function
我用Return "" 显示语法错误
Function getData(ByVal strOutno As String) As String
strOutNoMe = strOutno
If strOutno = vbNullString Then
MsgBox "保税号不能为空！", , "提示!"
Return????????????????????????
Exit Function
End If
End Function
...全文
请发表友善的回复…
发表回复
dingzhaofeng 2003-10-21
- 打赏
- 举报
初学者！
captainivy 2003-10-21
- 打赏
- 举报
Function fun(s As String) As Integer
Case "a"
fun = 1 '返回值
Case "b"
fun = 2 '返回值
End Select
End Function
Case "a"
fun = 1 '返回值
Case "b"
fun = 2 '返回值
End Select
End Function
cfans2002 2003-10-21
- 打赏
- 举报
Return????????????????????????
改成getData="??????????????????????????"
改成getData="??????????????????????????"
zsgzsgzsg 2003-10-20
- 打赏
- 举报
Function getData(ByVal strOutno As String) As String
strOutNoMe = strOutno
If strOutno = vbNullString Then
MsgBox "保税号不能为空！", , "提示!"
getData="Return????????????????????????"
Exit Function
End If
getData=""
End Function
strOutNoMe = strOutno
If strOutno = vbNullString Then
MsgBox "保税号不能为空！", , "提示!"
getData="Return????????????????????????"
Exit Function
End If
getData=""
End Function
shaidanR 2003-10-20
- 打赏
- 举报
在函数中:
getdata=值
getdata=值
dinky 2003-10-20
- 打赏
- 举报
还有漏了一点
函数中写上 “函数名”=“值”
函数中写上 “函数名”=“值”
dinky 2003-10-20
- 打赏
- 举报
VB函数中不需要写返回
在过程中
dim AAA as string
AAA=getData
就可以了
在过程中
dim AAA as string
AAA=getData
就可以了
