错误：从“DBNull”类型到“String”类型的转换无效

Question

我正在从事一个从数据库获取数据的项目。

现在我收到此错误消息：

从“DBNull”类型到“String”类型的转换无效

我知道错误的含义，我只需要一种方法来修复它。

我有以下代码：

 Private Function ParseSeamansNames(ByVal seaman As ItemsDataSet.SeamenRow) As String
        If (seaman Is Nothing) Then Return String.Empty

        Dim name As String
        Dim firstNames() As String = Split(seaman.FirstName.Replace("-", " "))
        Dim index1 As Integer = CInt(seaman.GivenNameNumber.Substring(0, 1))
        Dim index2 As Integer = CInt(seaman.GivenNameNumber.Substring(1, 1))
        If (index1 > firstNames.Length - 1) Then
            index1 = 0
        End If
        If (index2 > firstNames.Length - 1) Then
            index2 = 0
        End If
        If (index1 = 0 And index2 = 0) Then
            name = seaman.FirstName
        ElseIf (index1 > 0 And index2 = 0) Then
            name = firstNames(index1 - 1)
        ElseIf (index1 = 0 And index2 > 0) Then
            name = firstNames(index2 - 1)
        Else
            name = firstNames(index1 - 1) & "-" & firstNames(index2 - 1)
        End If
        name = name & " " & seaman.LastName

        Return name
    End Function

我尝试将其更改为If (seaman Is Nothing) Then Return DBNull，但出现错误：

dbnull 是一种类型，不能用作表达式

我真的不知道如何解决它。谁能帮我？

更新：

我收到此错误：

[InvalidCastException：从“DBNull”类型转换为“String”类型 无效。]
Microsoft.VisualBasic.CompilerServices.Conversions.ToString（对象 价值）+715847
C:\BUMS 中的 BUMSSeamenWebb.ItemsService.SeamenRow.get_FirstName() LOKAL\Dev\Projects\BUMSSeamenWebb\Web References\ItemsService\Reference.vb:51036

那一行就是这段代码：

 <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
            Public Property FirstName() As String
                Get
                    Try 
                        Return CType(Me(Me.tableSeamen.FirstNameColumn),String)
                    Catch e As Global.System.InvalidCastException
                        Throw New Global.System.Data.StrongTypingException("The value for column 'FirstName' in table 'Seamen' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableSeamen.FirstNameColumn) = value
                End Set
            End Property

特别是：

 Return CType(Me(Me.tableSeamen.FirstNameColumn),String)

我在这里看不到问题

更新 2：

这是另一个检查其他列的函数

 Private Sub SetSeamanData(ByRef itemRow As ItemsDataSet.ItemsRow, ByVal seaman As ItemsDataSet.SeamenRow)
        itemRow.PersonalIdentityNumber = seaman.PersonalIdentityNumber
        itemRow.Name = ParseSeamansNames(seaman)
        itemRow.CitizenShipCode = seaman.CitizenshipCode
        If Not seaman.IsEmailNull() Then
            itemRow.EmailAddress = seaman.Email
        Else
            itemRow.EmailAddress = Nothing
        End If
        If Not seaman.IsTelephoneNull() Then
            itemRow.TelephoneNumber = seaman.Telephone
        Else
            itemRow.TelephoneNumber = Nothing
        End If
        If Not seaman.IsMobiletelephoneNull() Then
            itemRow.MobilephoneNumber = seaman.Mobiletelephone
        Else
            itemRow.MobilephoneNumber = Nothing
        End If
    End Sub

Answer 1

这些生成的DataRow 类的编码方式是，如果您尝试读取具有数据库空值的属性（列值），它将引发异常。

您应该在尝试读取之前检查 null 。

从消息中可以看出，在这种情况下，它抱怨您正在尝试读取 FirstName 的值，但它为空 (DbNull)。

通常，当一列可以为空时，这些DataRow 类还包括一个方便的函数来检查该特定列上的空值。所以在这种情况下，ItemsDataSet.SeamenRow 也应该有一个IsFirstNameNull 函数。如果是这样，请先调用它，然后处理该特定情况。如果IsFirstNameNull 返回false，那么您可以安全地读取FirstName 属性。

如果您的数据库中有其他可以为空的列，则需要遵循类似的模式。