Question

返回值如何從函數返回值

代碼

Private Function LeaveCheck(empid As String) 
    Dim rdoRs1 As rdoResultset 
    Dim desc As String 
    Dim sSQL As String 
    sSQL = "Select name from table1 wher empcode = '" & empid & "'" 
    Set rdoRs1 = Rdoconn.OpenResultset(sSQL, rdOpenStatic) 
    If rdoRs1.RowCount > 0 Then 
    desc = rdors1!name   
    return desc 'Showing error in this line  
    End If 
    rdoRs1.Close 
End Function 

如何從上面的代碼返回值。

需要Vb6代碼幫助

Answer 1

您需要指定您的返回類型。

Private Function LeaveCheck(empid As String) As String ' Notice the As String 
    Dim rdoRs1 As rdoResultset 
    Dim desc As String 
    Dim sSQL As String 
    sSQL = "Select name from table1 wher empcode = '" & empid & "'" 
    Set rdoRs1 = Rdoconn.OpenResultset(sSQL, rdOpenStatic) 
    If rdoRs1.RowCount > 0 Then 
     desc = rdors1!name   
    End If 
    rdoRs1.Close 

    LeaveCheck = desc ' This will be blank or populated 
End Function 

這裏是一個link是在VB6

編輯

理解函數讀取您的評論後，一個良好的閱讀，我將創建一個類來存儲你的價值觀。

Public Class MyClass 
    Dim name As String 
    Dim dept As String 
    Dim country As String 
End Class 

然後，您可以實例化這個類的一個新實例的代碼裏面：

Private Function LeaveCheck(empid As String) As MyClass 
    Dim myClass As New MyClass 
    Dim rdoRs1 As rdoResultset 
    Dim sSQL As String 
    sSQL = "Select name, dept, country from table1 wher empcode = '" & empid & "'" 
    Set rdoRs1 = Rdoconn.OpenResultset(sSQL, rdOpenStatic) 
    If rdoRs1.RowCount > 0 Then 
     myClass.name = rdors1!name   
     myClass.dept = rdors1!dept 
     myClass.country = rdors1!country 
    End If 
    rdoRs1.Close 

    LeaveCheck = myClass 
End Function 

Answer 2

您需要設置值函數名和返回類型：

Private Function LeaveCheck(empid As String) As String 
    Dim rdoRs1 As rdoResultset 
    Dim desc As String 
    Dim sSQL As String 
    sSQL = "Select name from table1 wher empcode = '" & empid & "'" 
    Set rdoRs1 = Rdoconn.OpenResultset(sSQL, rdOpenStatic) 
    If rdoRs1.RowCount > 0 Then 
     desc = rdors1!name   
    End If 
    rdoRs1.Close 

    LeaveCheck = desc 

End Function 

請參閱this document瞭解更多信息。

Answer 3

Function returnArray() As Variant 
    RTA[ab]=0 
    if a=b then RTA[ab]=1 

    RTA[xy]=0 
    if a=b then RTA[xy]=1 

    returnArray=RTA 
end function