Question

我是一名学习VB.NET的学生。我得到＆＃34;函数ToString没有在所有代码路径上返回一个值＆＃34; 在覆盖功能？并且它不会以它应该的方式工作。有一个组合框（Label11引用），它选择列表框布局的方式。以下是我遇到问题的代码，我们将不胜感激。

Overrides Function ToString() As String

    Try
        If _label11 = "" Then
            Return _contactName & " - " & _SurName & vbTab & "(" & _companyName & ")" & vbTab & _state & vbTab & _email
        Else
            If _label11 = "Name" Then
                Return _contactName & " - " & _SurName & vbTab & "(" & _companyName & ")" & vbTab & _state & vbTab & _email
            Else
                If _label11 = "Surname" Then
                    Return _SurName & " - " & _contactName & vbTab & "(" & _companyName & ")" & vbTab & _state & vbTab & _email
                Else
                    If _label11 = "Company Name" Then
                        Return "(" & _companyName & ")"  & vbTab & _contactName & " - " & _SurName & _state & vbTab & _email
                    Else
                        If _label11 = "Product" Then
                            Return _state & vbTab & "(" & _companyName & ")" & vbTab & _contactName & " - " & _SurName & _state & vbTab & _email

                        End If
                    End If
                End If
            End If
        End If
    Catch ex As Exception
        MsgBox(ex.ToString)
    Finally
    End Try
End Function

这是我现在拥有的，似乎cmbSelect组合框不会将我的form2中的信息发送到联系人类。我用谷歌搜索并尝试了一切来使它工作？使用当前的一个，它会给出错误＆＃34;对象引用未设置为对象上的实例＆＃34; 有什么想法吗？

Overrides Function ToString() As String
Select Case cmbSelect.SelectedIndex
        Case 0
               Return _contactName & " - " & _SurName '& vbTab & "(" & _companyName & ")" & vbTab & _state & vbTab & _email
        Case 1
            Return _contactName & " - " '& _SurName & vbTab & "(" & _companyName & ")" & vbTab & _state & vbTab & _email
        Case 2                
            Return _SurName '& " - " & _contactName & vbTab & "(" & _companyName & ")" & vbTab & _state & vbTab & _email
        Case 3                
            Return "(" & _companyName & ")" ' & vbTab & _contactName & " - " & _SurName & _state & vbTab & _email
        Case 4                
            Return _state & vbTab '& "(" & _companyName & ")" & vbTab & _contactName & " - " & _SurName & _state & vbTab & _email
        Case Else
            Return _contactName & " - " & _SurName & vbTab & "(" & _companyName & ")" & vbTab & _state & vbTab & _email & vbTab & _NumId
    End Select
End Function

函数ToString不会在所有代码路径上返回值

0 个答案: