Question

有一个名为cboEndUser的组合框。当我在组合框中选择项目时，则调用此函数。 cboEndUser由

填充

cboEndUser.Items.Add(New itemData(oRec.Fields("FullName").Value, oRec("ContactID")))

项目数据是一个类。

Public Class itemData
Public _item As String
Public _itemData As Object

Public Sub New(ByVal item As String, ByVal data As Object)
    _item = item
    _itemData = data
End Sub

Public Overrides Function ToString() As String
    Return _item
 End Function
End Class


Private Sub cboEndUser_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cboEndUser.SelectedIndexChanged

            If cboEndUser.SelectedIndex <> -1 Then
                PopulateSerialNumberArray(CInt(txtCustomerID.Text), (cboEndUser.SelectedItem)._itemData)
            End If

End Sub

在PopulateSerialNumberArray（CInt（txtCustomerID.Text），（cboEndUser.SelectedItem）._ itemData）中获取错误。错误是从“InternalField”类型转换为“String”类型无效。

Public Sub PopulateSerialNumberArray(ByRef plCustomerID As Integer, ByRef plContactID As String)

End Sub

Answer 1

您的函数需要一个字符串作为第二个参数。 (cboEndUser.SelectedItem)._itemData不是。

更改函数的签名或将参数更改为字符串。

错误从“InternalField”类型转换为“String”类型无效

1 个答案: