VB code in the OCX:

The 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 code in
Gra_type long gra_sky [14], [14], gra_xf_now [14], gra_xf_yue [14], gra_card_liu [14], gra_mach_liu [14], gra_quhao [14]
Gra_card string gra_date [14], [14]

Ls_value=https://bbs.csdn.net/topics/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, & amp;
Ref gra_xf_yue, Ref gra_card_liu, Ref gra_mach_liu, Ref gra_quhao)

But after through code tracking, found in after OCX that executes the FOR loop is annulled, out of the question should be an array, request to master!

CodePudding user response:

In the pb array to assign initial values to try again

CodePudding user response:

Posting in CSDN, there are three people, are all go away!