主题：考勤机数据下载 代码 求助

看到了FX的便利，以前学过一段时间VBA，所以想转来学FX，这两天做了个考勤系统，可以连接外部的中控考勤机了，但下载不了考勤机里面的数据，想求助一下高人，帮忙写一点下载考勤机数据的代码或给一些代码的提示，提前谢过了   QQ：249592026

 

     下面采集数据【下载数据】的代码   求助！！！！

 

     
此主题相关图片如下：图片1.png

各位老师，

 

看了VB的实例后，复制了相应的代码，但还是不能获取考勤机中的数据，麻烦帮忙修改一下代码，谢谢

 

 

 

此主题相关图片如下：图片111.png

 

Dim axCZKEM1 As New zkemkeeper.CZKEM
Dim bIsConnected = axCZKEM1.Connect_Net("192.168.0.103", "4370")


    'Download the attendance records from the device.
   ' Private Sub btnGetGeneralLogData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetGeneralLogData.Click
       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 iMachineNumber As Integer = 1
Dim lvlogs
Dim LvItem
Dim cursors,cursor

        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
        End If

        AxCZKEM1.EnableDevice(iMachineNumber, True) 'enable the device
        Cursor = Cursors.Default
   

”有点甜“老师：

 

不好意思，再问一下，把上面的代码写进去后，点击 获取数据 按钮，还是没有任何获取的数据出来，LISTVIEW及其它地方也没有显示数据，

要怎么调整一下，谢谢

 

 

此主题相关图片如下：图片100000.png

好象电脑也很容易卡死，FX没反应

哦，谢谢，在命令窗口是可以看见导出的数据，

 

那如果想要让数据在LISTVIEW或TABLE里面显示出来，该怎么样调整一下呢

搞定了，谢谢，“有点甜”老师，你真厉害

 

各位老师，

 

再求教以下事项，代码好象有点问题，调试了好久，出勤表的班次里面就是没有结果，显示空白

 

Select Case e.DataCol.Name
    Case "工号","日期"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("工号") OrElse dr.IsNull("日期")  Then
            dr("班次") = Nothing
        Else
            Dim filter As String
            filter = "工号 = '" & dr("工号") & "' And 日期 = '" & dr("日期") & "'"
            pr = DataTables("排班表").Find(filter)
            If pr IsNot Nothing Then
                dr("班次") = pr("班次")
            End If
        End If
End Select

 

 

此主题相关图片如下：图片2.png

 

 

此主题相关图片如下：图片1.png