专家坐堂-[求助]中控考勤机的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If bIsConnected = False Then

MsgBox("Please connect the device first", MsgBoxStyle.Exclamation, "Error")

Return

End If

Dim sdwEnrollNumber As String = ""

Dim idwVerifyMode As Integer

Dim idwInOutMode As Integer

Dim idwYear As Integer

Dim idwMonth As Integer

Dim idwDay As Integer

Dim idwHour As Integer

Dim idwMinute As Integer

Dim idwSecond As Integer

Dim idwWorkcode As Integer

Dim idwErrorCode As Integer

Dim iGLCount = 0

Dim lvItem As New ListViewItem("Items", 0)

Cursor = Cursors.WaitCursor

lvLogs.Items.Clear()

AxCZKEM1.EnableDevice(iMachineNumber, False) \'disable the device

If AxCZKEM1.ReadGeneralLogData(iMachineNumber) Then \'read all the attendance records to the memory

\'get records from the memory

While AxCZKEM1.SSR_GetGeneralLogData(iMachineNumber, sdwEnrollNumber, idwVerifyMode, idwInOutMode, idwYear, idwMonth, idwDay, idwHour, idwMinute, idwSecond, idwWorkcode)

iGLCount += 1

lvItem = lvLogs.Items.Add(iGLCount.ToString())

lvItem.SubItems.Add(sdwEnrollNumber)

lvItem.SubItems.Add(idwVerifyMode.ToString())

lvItem.SubItems.Add(idwInOutMode.ToString())

lvItem.SubItems.Add(idwYear.ToString() & "-" + idwMonth.ToString() & "-" & idwDay.ToString() & " " & idwHour.ToString() & ":" & idwMinute.ToString() & ":" & idwSecond.ToString())

lvItem.SubItems.Add(idwWorkcode.ToString())

End While

Else

Cursor = Cursors.Default

AxCZKEM1.GetLastError(idwErrorCode)

If idwErrorCode <> 0 Then

MsgBox("Reading data from terminal failed,ErrorCode: " & idwErrorCode, MsgBoxStyle.Exclamation, "Error")

Else

MsgBox("No data from terminal returns!", MsgBoxStyle.Exclamation, "Error")

End If

AxCZKEM1.EnableDevice(iMachineNumber, True) \'enable the device

Cursor = Cursors.Default

这个照抄，会发现ListViewItem未定义。

应该如何修改呀