求助为什么会报错和修改方法

qq_21420725 2020-09-22 11:58:45

为什么我在webservice上面的参数写的是 List(Of M_OfficeServerEntity)
调用的时候却要M_OfficeServerEntity（）

错误BC30311类型“List(Of M_OfficeServerEntity)的值”不能转换为“ M_OfficeServerEntity（）”。

代码



Dim _OfficeServerList As List(Of Office_Service.M_OfficeServerEntity) = New List(Of Office_Service.M_OfficeServerEntity)



For Each mOffice  In mOfficeList 

    Dim _mOfficeServer  As Office_Service.M_OfficeServerEntity = New Office_Service.M_OfficeServerEntity()

    _mOfficeServer.OfficeCode= mOffice.OfficeCode

    _OfficeServerList.Add(_mOfficeServer)

Next



''调用webservice方法

webservice.SyncOfficeData(_OfficeServerList) 



''webservice的代码

 <WebMethod()>

    Public Function SyncOfficeData(ByVal _Officedata As List(Of M_OfficeServerEntity)) As Integer

        Try

            Dim result As Integer = 0

          

            Return result

        Catch ex As Exception

            Throw New Exception("SyncOfficeData", ex)

        End Try

    End Function

如何修改

...全文

9782 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

清风不拂面 2020-09-24

打赏
举报

SyncOfficeData(ByVal _Officedata As List(Of M_OfficeServerEntity)) 改成SyncOfficeData(ByVal _Officedata As List(Of Office_Service.M_OfficeServerEntity))试试

清风不拂面 2020-09-24

打赏
举报

都定义成Office_Service.M_OfficeServerEntity试试

อาเหว่ย 2020-09-23

打赏
举报

注意类型对上。把报错拿出来。建议用API适合点

八爻老骥 2020-09-23

打赏
举报

引用楼主 qq_21420725 的回复:



Dim _OfficeServerList As List(Of Office_Service.M_OfficeServerEntity) = New List(Of Office_Service.M_OfficeServerEntity)



For Each mOffice  In mOfficeList 

    Dim _mOfficeServer  As Office_Service.M_OfficeServerEntity = New Office_Service.M_OfficeServerEntity()

    _mOfficeServer.OfficeCode= mOffice.OfficeCode

    _OfficeServerList.Add(_mOfficeServer)

Next



''调用webservice方法

webservice.SyncOfficeData(_OfficeServerList) 



''webservice的代码

 <WebMethod()>

    Public Function SyncOfficeData(ByVal _Officedata As List(Of M_OfficeServerEntity)) As Integer

        Try

            Dim result As Integer = 0

          

            Return result

        Catch ex As Exception

            Throw New Exception("SyncOfficeData", ex)

        End Try

    End Function