VB.NET 错误消息 - "Option Strict On disallows implicit conversions from 'Object' to 'String'"

Question

我的VB.NET程序中有一个错误。我试过各种各样的演员阵容，但这并不能解决问题——所以我不情愿地把它发布在这里，看看是否还有其他人有类似的问题。

错误消息

错误1 Option Strict On不允许从"Object"到"String"的隐式转换。

代码

Private DS As New DataSet ' Languages
Function TransTxt(ByVal Frm As String, ByVal Item As String) As String
    Dim language As String
    Select Case My.Settings.Language
        Case 0 : language = "en" ' English
        Case 1 : language = "fr" ' French
        Case 2 : language = "it" ' Italian
        Case 3 : language = "sp" ' spanish
        Case 4 : language = "pt" ' portuguese
        Case 5 : language = "de" ' german
        Case 6 : language = "du" ' dutch
        Case Else : language = "en" ' English
    End Select

    Try 'ONE of these rows is the error
        Dim DR() As DataRow = DS.Tables(Frm).Select("Tag = '" & Item & "'")
        Return DR(0).Item(language) 
        Catch ex As Exception 
          Return "- error -" & Item
    End Try 
End Sub

Answer 1

Return DR(0).Item(language)是我的猜测。

将CAST转换为STRING类型，或在末尾使用Return DR(0).Item(language).ToString()。