获取人员最新状态，求思路 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，下午好。

想要获取打卡人员，最后一次打卡的数据(最新状态数据)。

论坛上没有翻到相符合的内容，请老师帮忙。

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

[此贴子已经被作者于2017/6/10 13:32:26编辑过]

可以做一个分组统计，统计类型选“最大值”：http://www.foxtable.com/webhelp/scr/0158.htm

郁闷了，时间的统计类型只有“记录数”，没有“最大值”。

测试，只有数值才能值最大、最小、平均等，字符/时间/逻辑等，都只能统计数量。

是的。那就使用sql

Dim q As new QueryBuilder

q.TableName = "统计"

q.ConnectionName = "数据源名称"

q.SelectString = "Select 姓名,max(打卡时间) As 打卡时间 From {员工} Group By 姓名"

q.Build

MainTable = Tables("统计")

这个问题我也遇到了，你要把日期时间拆分成2个部分进行分析，先判断日期，然后分析时间，甚至分析打卡次数。

老师，您好。

1.获得的<打卡时间>，只显示了日期，如何全部显示(时间+日期)。

2.如果还有别的列要加载，需要如何处理？

我是想这样搞，也不知道是否能运行，而且效率一定很差，并且要把(打卡数据表)全部加载进来，想想也不是好办法。请老师帮忙。

Dim dtb As New DataTableBuilder("临时表1") '生成临时表

dtb.AddDef("姓名", Gettype(String), 16)

dtb.AddDef("类型", Gettype(String), 16)

dtb.AddDef("打卡时间", Gettype(String), 32)

Dim dt As DataTable = dtb.Build(True)

For Each dr1 As DataRow In DataTables("统计").DataRows

For Each dr2 As DataRow In DataTables("打卡").DataRows

If dr1("姓名") = dr2("姓名") And dr1("打卡时间") = dr2("打卡时间") Then

Dim ndr As DataRow = dt.AddNew()

ndr("姓名") = dr2("姓名")

ndr("类型") = dr2("类型")

ndr("打卡时间") = dr2("打卡时间")

ndr("地点") = dr2("地点")

End If

With wb.AddTable("","Table1")

.CreateFromDataTable(dt) '用于根据Foxtable的DataTable自动生成网页

End With

此主题相关图片如下：123.jpg

此主题相关图片如下：12311.jpg

[此贴子已经被作者于2017/6/10 15:57:36编辑过]

老师，您好。

这样生成的表格，汇报时间要设置为长日期时间格式，要怎么处理？

代码在txt文档中 -->

下载信息 [文件大小：下载次数： ]
点击浏览该文件:time.txt

此主题相关图片如下：123.jpg

[此贴子已经被作者于2017/6/16 17:12:03编辑过]

主题：获取人员最新状态，求思路