求各位大大...webserivce调用时,提示 Type mismatch....
求各位大大...我在webserivce使用者中创建了一个WSDL...,方法如下
Function AddSum(a As Long, b As Long) As Long
Let AddSum = Service.Invoke("AddSum", a, b)
End Function
Function GetLotusFirstRowStr(Name_ As XSD_STRING) As XSD_STRING
Set GetLotusFirstRowStr = Service.Invoke("GetLotusFirstRowStr", Name_)
End Function
然后在LS中调用AddSum方法可以....
可是调用 GetLotusFirstRowStr方法提示
Sub Click(Source As Button)
Dim service1 As SAP_USER_INFO_SELECTSoap_n1
Set service1 =New SAP_USER_INFO_SELECTSoap_n1
'Msgbox service1.AddSum(16,25)
//这句可以执行
Msgbox service1.GetLotusFirstRowStr("123") //这句显示红色,底下提示 type mismatch
End Sub
Msgbox service1.GetLotusFirstRowStr("123")
提示类型不匹配?? XSD_STRING 该怎么传呀...
webservice 是string 类型呀
帮忙啊>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><><><><><><><><><><><><><><><>
Function AddSum(a As Long, b As Long) As Long
Let AddSum = Service.Invoke("AddSum", a, b)
End Function
Function GetLotusFirstRowStr(Name_ As XSD_STRING) As XSD_STRING
Set GetLotusFirstRowStr = Service.Invoke("GetLotusFirstRowStr", Name_)
End Function
@@93NXR`]DJR})2L.jpg)
然后在LS中调用AddSum方法可以....
可是调用 GetLotusFirstRowStr方法提示
Sub Click(Source As Button)
Dim service1 As SAP_USER_INFO_SELECTSoap_n1
Set service1 =New SAP_USER_INFO_SELECTSoap_n1
'Msgbox service1.AddSum(16,25)
//这句可以执行
Msgbox service1.GetLotusFirstRowStr("123") //这句显示红色,底下提示 type mismatch
End Sub
Msgbox service1.GetLotusFirstRowStr("123")
提示类型不匹配?? XSD_STRING 该怎么传呀...
webservice 是string 类型呀
帮忙啊>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><><><><><><><><><><><><><><><>
3同行回答
你跟踪一下，我觉得getlotusfirstrowstr返回的是一个variant类型的变量，是不能直接用msgbox的收起
浏览890
你试一下在后面加这个方法Getvalueasstring()，在webservice那边是XSD_STRING，但是在这边要转换成string，你这样试试：Msgbox service1.GetLotusFirstRowStr("123").Getvalueasstring()。收起
浏览935