主题：datatable的addnew sqlselect sqladdnew bug

ElseIf LDataRows.count =2 Then '这里重点处理

                '按时间顺序逐个处理

                Dim FerstDate As Date = cdate(LDataRows(0)("checkin_time"))

                Dim SecDate As Date = cdate(LDataRows(1)("checkin_time"))

                Dr_Dkop("打卡时间") = Format(LDataRows(0)("checkin_time"),"G") & ";" & Format(LDataRows(1)("checkin_time"),"G")

                Dr_Dkop("userid") = Luserid

                Dr_Dkop("迟到") = 0

                Dr_Dkop("日期") = Format(DayStart ,"yyyy-MM-dd")

                WorkT = (SecDate -FerstDate ).totalhours

                If (FerstDate-Kfszb).TotalSeconds <=0 Then

                    '正常上客服早班

                    If WorkT >=8 Then '时长大于8,正常,小于早退

                        

                        

                        Dr_Dkop("工作时长") =2.56 /数据库里始终为：2.00  列属性也设置了

                        Dr_Dkop("工作天数") = 1

                        Dr_Dkop("加班时长") = 0.00

                        Dr_Dkop("请假时长") = 0.00

                        Dr_Dkop("考勤状态") = "正"

                        Dr_Dkop("上下班规则")="8:00;16:00"