主题：求，打卡数据处理思路，删除中间多余数据。

工号 、姓名、时间、位置

记录如下：

001  张三   2023-02-27 07:54:34  地点1

001  张三   2023-02-27 08:54:34  地点1

001  张三   2023-02-27 09:54:34  地点1

001  张三   2023-02-27 12:54:34  地点1

001  张三   2023-02-27 20:54:34  地点1

001  张三   2023-02-28 07:54:34  地点1

问题如下：

1、需要删除中间的数据，即：只要最早的打卡记录与最晚的打卡记录（001  张三   2023-02-27 07:54:34  地点1与001  张三   2023-02-27 20:54:34  地点1）

2、最后的数据只保留一早一晚的记录，至于一天只有一次的打卡记录的我还没有思路如何处理？

t.sort = "工号,时间"

dim r1 as row = t.rows(t.rows.count - 1)

dim r as row

for i as integer = t.rows.count - 2 to 1 step -1

r = t.rows(i)

if r1("工号") = r("工号") andalso r1("时间").date = r("时间").date andalso t.rows(i-1)("工号") = r("工号") andalso t.rows(i-1)("时间").date = r("时间").date

r.delete

else

r1=r

end if

next

sj列是字符列，不是日期列

我在mysql中把字段类型改为 datetime，但是导入窗口表，会丢失时间部分，即只有yyyy-mm-dd，所以我用Convert.ToDateTime(string)，直接把字符串转换为日期时间类型。

Dim db = HySql.DataBaseFactory.CreateDatabase()

db.CommandTimeout = 200

.......

非常感谢蓝版，希望这些能帮助其它人。