用户自定义类型——无效的内部过程?
Private Sub Command1_Click()
Adodc1.Visible = False
SSTab1.Visible = False
Dim i As Long
Dim filenum As Long
filenum = FreeFile
Dim bytefile() As Byte
Open CommonDialog1.FileName For Binary As #filenum 'Len = 32766'超长怎么办?
ReDim bytefile(LOF(filenum) - 1)
Get #filenum, , bytefile
Close #filenum
For i = 0 To 15
version = version + Chr$(bytefile(i))
Next
For i = 16 To 32 Step
VIN = VIN + Chr$(bytefile(i))
Next i
For i = 57 To 59
code = code + Chr$(bytefile(i))
Next
'自定义记录类型
Type Yidian
jzno As String * 18
stoptime As String * 6
speed As Single
kgxh As Integer '开关信息
End Type
Dim ydsj() As Yidian 'ydsj:疑点数据
For j = 0 To 17
If Mid$(bytefile, 400 + (324 * i), 1) <> "ff" Then
ydsj(1).jzno = "123456789012345678"
Next
为什么我一运行就提示无效的内部过程