想显示一个数组的内容,但提示缺少数组,大家帮忙分析下,谢谢。
VB如何读取数组里面的内容啊?是自义生成的一组数组。Public Const SFEP_UFPDATA_SIZE = (498)
Public Type SFEP_USER_FPDATA
rbData(SFEP_UFPDATA_SIZE - 1) As Byte
End Type
Dim stRegtem As SFEP_USER_FPDATA
Dim i As Byte
If nEnrollCount = 3 Then
lblStatus = "": lblStatus.Refresh
nRet = SFEP_GetTemplateForRegister(stTemplates(0), stRegTem)
If nRet <> RES_OK Then
lblStatus = "Failed in get template for enroll!": lblStatus.Refresh
Else
nRet = SFEP_Enroll(stRegTem, dwID, bFingerNum, bManager)
'-----------------------------------------------------------------------------
For i = LBound(stRegTem) To UBound(stRegTem) ‘出现错误的地方
Text1.Text = Text1.Text & Chr(10) & Str(stRegTem(i))
'MsgBox stRegtem(i)
Next
'-----------------------------------------------------------------------------
If nRet <> RES_OK Then
If nRet = ERR_DUPLICATED Then
lblStatus = "Duplicate!" + vbCrLf + "ID=" + Str(dwID) + ", FN=" + Str(bFingerNum)
Else
lblStatus = "Failed Enroll!" + vbCrLf + "ERROR CODE = " + Str(nRet)
End If
Else
lblStatus = "Success!!!!!"
End If
End If
End If
显示编译错误,缺少数组,请大家帮忙看下是什么原因啊,谢谢。
如果不加FOT循环是可以正常执行的,谢谢。