请问vb调用SAP RFC如何传入一个表作为RFC的参数
源代码如下,可以传入字符作为参数,也可以读取返回的字符,但是我要传入一个表作为参数就不行了..
Set sapFunctions = CreateObject("SAP.Functions")
Set sapConnect = sapFunctions.Connection
sapConnect.System = "GMT"
sapConnect.ApplicationServer = "*.*.*.*"
sapConnect.SystemNumber = 0
sapConnect.User = "******"
sapConnect.password = "******"
sapConnect.Client = "100"
sapConnect.Language = "EN"
If sapConnect.Logon(Me.hWnd, True) = False Then
MsgBox "联接SAP失败!"
Exit Function
End If
Set sapFunction = sapFunctions.Add("Z_CREATE_CHANGE")
sapFunction.Exports("PI_MODI_TYPE") = "C" '这是传入的字符参数
sapFunction.Exports("PI_SAVE") = "N" '这是传入的字符参数
'下边的都是表参数
Set PT_IN_HEADER = sapFunction.Tables("PT_IN_HEADER")
Set PT_IN_ITEM = sapFunction.Tables("PT_IN_ITEM")
Set PT_OUT_HEADER = sapFunction.Tables("PT_OUT_HEADER")
Set PT_OUT_ITEM = sapFunction.Tables("PT_OUT_ITEM")
Set PT_ERROR = sapFunction.Tables("PT_ERROR")
Set PT_OUT_OTHER = sapFunction.Tables("PT_OUT_OTHER")
With PT_IN_HEADER
.AddNew '这里报错...VBS使这样写的,请问VB怎么写
PT_IN_HEADER.Refresh
PT_IN_HEADER(0, "REFNO") = Me.Txt_ClaimNo.Text
End With
If sapFunction.Call Then
returnCode = sapFunction.Imports("PE_RETCO") '传出的参数,已经可以读取返回的值了
message = sapFunction.Imports("PE_RMESG") '传出的参数,已经可以读取返回的值了
MsgBox returnCode & " : " & message
Else
MsgBox "Wrong"
End If