VB OCX中的代碼：
Public Function Get_Record_ALL(ByVal GRA_Port_Com As String, ByVal GRA_Address_Com As String, _
ByVal GRA_WaitTime_Com As Long, ByVal GRA_ZhiZheng As Long, ByRef GRA_Num As Long, _
ByRef GRA_SKY() As Long, ByRef GRA_Date() As String, ByRef GRA_Card() As String, _
ByRef GRA_Type() As Long, ByRef GRA_XF_Now() As Long, ByRef GRA_XF_YuE() As Long, _
ByRef GRA_Card_Liu() As Long, ByRef GRA_Mach_Liu() As Long, ByRef GRA_QuHao() As Long) As Long
For Tmp_765 = 1 To 14 Step 1
GRA_SKY(Tmp_765) = 0
GRA_Date(Tmp_765) = vbNullString
GRA_Card(Tmp_765) = vbNullString
GRA_Type(Tmp_765) = 0
GRA_XF_Now(Tmp_765) = 0
GRA_XF_YuE(Tmp_765) = 0
GRA_Card_Liu(Tmp_765) = 0
GRA_Mach_Liu(Tmp_765) = 0
GRA_QuHao(Tmp_765) = 0
Next Tmp_765
PB 中代碼
long gra_sky[14],gra_type[14],gra_xf_now[14],gra_xf_yue[14],gra_card_liu[14],gra_mach_liu[14],gra_quhao[14]
string gra_date[14],gra_card[14]
ls_value = uo_ocom_ocx.ofb35.Object.Get_Record_ALL(ip_com,ls_sb_no_cc,2000,gra_zhizheng,&
Ref gra_num,Ref gra_sky,Ref gra_date,Ref gra_card,Ref gra_type,Ref gra_xf_now,&
Ref gra_xf_yue,Ref gra_card_liu,Ref gra_mach_liu,Ref gra_quhao)
但通過代碼跟蹤后，發現在 OCX中執行完FOR 回圈后就終止了。應該是陣列方面出了問題，請求高手解答！
uj5u.com熱心網友回復：
在pb中給陣列賦一下初始值再試試uj5u.com熱心網友回復：
在CSDN，這個問題有3個人發帖，都是不了了之！轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/57170.html
標籤：API 調用
上一篇：PB10.5 WebService 呼叫 Unmarshalling Error: unexpected element 錯誤求解!!!