各位大侠请看看这里，先谢了

Question

试试把frec定义为数组：
Dim Frec() as record

Answer 1

Public Declare Function Pollalock Lib "hsn20adl.dll" (ByVal adr As Long, Lecoh As Long, Lrecdnum As Long, Llockstate As Byte, Lrec As record) As LongPublic Type record
   dlockadr(0 To 4) As Byte
   dcard(0 To 11) As Byte
   dyear(0 To 2) As Byte
   dmonth(0 To 2) As Byte
   dday(0 To 2) As Byte
   dhour(0 To 2) As Byte
   dminute(0 To 2) As Byte
   dsecond(0 To 2) As Byte
   dtype As Byte
End TypeMsgBox "CardNo " & StrConv(frec.dcard, vbUniCode)