Comments by razrx - CodeProject

razrx 20-Oct-22 21:00pm View

oooh, now I know how to use 'step'. Thank you so much.

razrx 6-Oct-22 20:45pm View

Thanks for your answer. It also helps me to do some work with my code and I will always keep this in mind. Finally, I can fix my previous issue.

razrx 6-Oct-22 20:43pm View

Thanks again, somehow I manage to do something with my data table.

Dim dt As New DataTable
Dim r As DataRow

dt.Columns.Add("Col1", GetType(String))
dt.Columns.Add("Col2", GetType(Integer))
dt.Columns.Add("Col3", GetType(Integer))
dt.Columns.Add("Col4", GetType(Integer))
dt.Columns.Add("Col5", GetType(Integer))

For i = 0 To Dgv1.Rows.Count - 1
r = dt.NewRow
r("Col1") = Dgv1.Item(0, i).Value.ToString
r("Col2") = Dgv1.Item(1, i).Value.ToString
r("Col3") = Dgv1.Item(2, i).Value.ToString
r("Col4") = Dgv1.Item(3, i).Value.ToString
r("Col5") = Dgv1.Item(4, i).Value.ToString
dt.Rows.Add(r)
Next

dt.DefaultView.Sort = "Col4 ASC, Col5 ASC"
Dgv2.DataSource = dt

razrx 5-Oct-22 23:05pm View

Oh! now that you mention it, I also notice this silly mistake. hahaha, thank you for pointing it out.

razrx 5-Oct-22 23:05pm View

Deleted

Oh! now that you metion it, I also notice this silly mistake. hahaha, thank you for pointing it out.

razrx 4-Oct-22 22:31pm View

I like the way how you explain this stuff and this helps me to expound details on what's going on with my code, thanks a lot :)

I like this part "Compiling does not mean your code is right!"

razrx 4-Oct-22 21:51pm View

Your code is much simple to understand than the way I did, like this:

Dim SRT1 As Integer = Dgv1.Rows.Count / 6
For Each rw As DataGridViewRow In Dgv1.Rows
For i As Integer = 0 To rw.Cells.Count - 1
If rw.Cells(i).ColumnIndex = 3 Then
SSQ1 += 1
rw.Cells(i).Value = SSQ1.ToString
If rw.Cells(i).Value = SRT1 + 1 Then
SSQ1 = 1
rw.Cells(i).Value = SSQ1.ToString
End If
End If
Next
Next

it also works but thank you for answering my question

razrx 5-Apr-22 19:50pm View

Thank you very much for this info, It was a great help.

razrx 5-Apr-22 4:20am View

it works, but why did you use backslash?
i mean, you divide stuff there, but when i change it to slash, it gives me numbers with .5 values.

razrx 5-Apr-22 3:35am View

Hi, I tried using your code and also the code of Richard MacCutchan, but seems that it only solves the col2 problem, what should I do to fix my col3 problem?

razrx 15-Apr-19 21:49pm View

I've been using the default code provided in the sample project from the sdk that i've downloaded.

for downloading logs from the device:
If DevConnected = False Then
MsgBox("Device not connected!", 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
Cursor = Cursors.WaitCursor

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)
With dgx.Rows
.Add(sdwEnrollNumber, idwYear.ToString() & "-" & idwMonth.ToString() & "-" &
idwDay.ToString() & " " & idwHour.ToString() & ":" & idwMinute.ToString() & ":" & idwSecond.ToString(),
idwHour.ToString() & ":" & idwMinute.ToString() & ":" & idwSecond.ToString(),
idwYear.ToString() & "-" & idwMonth.ToString() & "-" & idwDay.ToString())
End With
End While

' If idwYear.ToString() = dtp1.Value.Year.ToString() And idwMonth.ToString() = dtp1.Value.Month.ToString() And idwDay.ToString() = dtp1.Value.Day.ToString() Then
'
' End If
DgvToDT()
Else
Cursor = Cursors.Default
axCZKEM1.GetLastError(idwErrorCode)
If idwErrorCode <> 0 Then
MsgBox("Unable to read data from ZK INO1-A, ErrorCode: " & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
Else
MsgBox("No Record found", MsgBoxStyle.Exclamation, "Error")
End If
End If

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

Comments by razrx (Top 11 by date)