一般可以,但具体的要看你如何用。
我用过一个调用,不是返回值,而是改变值。例如:
Dim srg075 As String = myShoboCom.TrimEx(MyDataRow("SRG_075"))
If (srg075.Equals("")) Then
Else
TeaCodeText = Me.WEBTAB.FindControl("Tab4_TeaCode6")
TeaNameText = Me.WEBTAB.FindControl("Tab4_TeaName6")
If (srg075.Equals("999999") Or srg075.Equals("888888")) Then
TeaCodeText.Text = srg075
Else
If (callTeaName(srg075, TeaCodeText, TeaNameText) = False) Then
Return False
End If
End If
End If
TeaCodeText,TeaNameText为两个TEXT,但我调用了此函数
'get teaName data excute
Private Function callTeaName(ByVal teaCode As String, ByRef teaCodeText As TextBox, ByRef teaNameText As TextBox) As Boolean
Dim MyDataResult As DataSet
Dim MyDataRow As DataRow
Dim StrSql, strMessage As String
Dim DBErr As String
StrSql = getTeaNameSql(teaCode)
Try
DBErr = MyDataAccess.Query(StrSql, MyDataResult)
'DB傾僋僙僗丂惓忢
If DBErr = "0000" Then
' get the data and put into TAB
Dim MyDataTable As New DataTable()
MyDataTable = MyDataResult.Tables(0)
If (MyDataTable.Rows.Count > 0) Then
'儗僐乕僪偑偁傞応崌丄僨乕僞傪弌椡偡傞
For Each MyDataRow In MyDataTable.Rows
teaCodeText.Text = myShoboCom.AddZero(myShoboCom.TrimEx(MyDataRow("SMC_001")), 6)
teaNameText.Text = myShoboCom.TrimEx(MyDataRow("SMC_003"))
Next MyDataRow
Else
strMessage = myShoboCom.getHashValue(myErrSession, "024") '島巘柤専嶕偺忣曬晄惓偱偡丅
Page.RegisterStartupScript("KOU_002_18", "<script>alert('" + strMessage + "');</script>")
Return False
End If
Else
Page.RegisterStartupScript("KOU_002_19", "<script>alert('" + DBErr + "');</script>")
Return False
End If
Catch ex As Exception
Console.WriteLine(ex.ToString())
Return False
End Try
Return True
End Function