前文是:
ublic LineName(2)

Public RepairOPID(4)

Public ShiftStartTime(3)
Public ShiftEndTime(3)

Sub WccDefine()
Dim i

OP_NUM(0)=14
OP_NUM(1)=94

InitLen(1)=255
InitLen(2)=1087

LineName(1)="缸盖线"
LineName(2)="缸体线"

RepairOPID(0)=63
RepairOPID(1)=16
RepairOPID(2)=7
RepairOPID(3)=14

ShiftStartTime(1) = "08:00"
ShiftStartTime(2) = "17:00"
ShiftStartTime(3) = "01:00"

ShiftEndTime(1) = "17:00"
ShiftEndTime(2) = "01:00"
ShiftEndTime(3) = "08:00"


End Sub
就是没找到LineID呀