功能发出警告说不返回值

Question

Function LoginPass() As Boolean
    Dim LogPass As New waxClass
    Dim Ldt As DataTable = LogPass.LoginPass(LCase(UserName_TextBox.Text),
                                             LCase(UserPass_TextBox.Text))
    If Ldt.Rows.Count > 0 Then

        waxClass.LMUser = Ldt.Rows(0).Item("Username").ToString
        'Utility.LMUserID = Ldt.Rows(0).Item("UserID").ToString
        Return True
    End If
End Function

当我尝试使用上述功能时，会发出警告：

  

函数'LoginPass'不会在所有代码上返回值   路径。你错过了“退货”声明吗？

Answer 1

您的功能需要Boolean返回值。

如果Ldt.Rows.Count <= 0，您没有返回值，因此这是警告的来源。添加Else Return False，你应该没问题。

If Ldt.Rows.Count > 0 Then
   waxClass.LMUser = Ldt.Rows(0).Item("Username").ToString
   'Utility.LMUserID = Ldt.Rows(0).Item("UserID").ToString
   Return True
Else
   Return False
End If