无法提取不重复编号的第一个日期值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 无法提取不重复编号的第一个日期值

共有2349人关注过本帖树形打印复制链接主题：无法提取不重复编号的第一个日期值

malavazos

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：357 积分：3418 威望：0 精华：0 注册：2012/8/29 10:30:00

无法提取不重复编号的第一个日期值 发帖心情

Post By：2019/5/19 23:56:00 [只看该作者]

MAF-012-4 2019-06-13 00:00:00

INSP-003-1 2019-06-21 00:00:00

MAF-012-4 2019-10-19 00:00:00

MAF-007-2 2019-08-20 00:00:00

EQUI-002-4 2019-02-04 00:00:00

MAF-016-4 2019-05-17 00:00:00

MAF-006-1 2019-11-13 00:00:00

MAF-022-3 2019-05-07 00:00:00

我要把上述两列中的第一列不重复项提出，并记录器最早的一个日期，形成一个新表。做了很长时间也为成功。下面是我的代码，请老师指点！（第一列值得到了，未得到第二列时间，得到的仅仅是00：00：00；无法得到日期）我的日期类型定义位 Gettype（date）

For Each dd As String In DataTables("当前年度维护计划").GetValues("任务编号")

Dim dr1 As DataRow = DataTables("统计").AddNew()

dr1("任务编号") = dd

dr1("计划执行日期") = DataTables("当前年度维护计划").find("任务编号 = 'dd'","计划执行日期")

output.show(dd)

output.show(dr1("计划执行日期"))

MainTable = Tables("统计")

malavazos

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：357 积分：3418 威望：0 精华：0 注册：2012/8/29 10:30:00

Post By：2019/5/19 23:58:00 [只看该作者]

下面是我的全部代码：

Dim jb As New SQLJoinTableBuilder("当前年度维护计划","计划维护记录")

jb.C

jb.AddTable("计划维护记录","任务编号","计划维护任务","任务编号")

jb.Filter = "[计划执行日期] >= #1/1/2019# And [计划执行日期]<= #12/31/2019#"

jb.AddCols("{计划维护任务}.任务编号","任务名称","设备台数","设备编号","计划执行日期", "{计划维护记录}.周期","{计划维护记录}.id")

jb.AddExp("维护台次数","12 / {计划维护记录}.周期 * {计划维护任务}.设备台数")

jb.Build()

'MainTable = Tables("当前年度维护计划")

Dim dtb As New DataTableBuilder("统计")

dtb.AddDef("任务编号", Gettype(String), 32)

dtb.AddDef("设备编号", Gettype(String), 100)

dtb.AddDef("周期", Gettype(String), 32)

dtb.AddDef("计划执行日期", Gettype(Date))

dtb.Build()

For Each dd As String In DataTables("当前年度维护计划").GetValues("任务编号")

Dim dr1 As DataRow = DataTables("统计").AddNew()

dr1("任务编号") = dd

dr1("计划执行日期") = DataTables("当前年度维护计划").find("任务编号='dd'","计划执行日期")

output.show(dd)

output.show(dr1("计划执行日期"))

MainTable = Tables("统计")

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110569 积分：562735 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/5/20 10:09:00 [只看该作者]

先看看：http://www.foxtable.com/webhelp/scr/1284.htm

For Each dd As String In DataTables("当前年度维护计划").GetValues("任务编号")

Dim dr1 As DataRow = DataTables("统计").AddNew()

dr1("任务编号") = dd

dim dr2 as datarow = DataTables("当前年度维护计划").find("任务编号='" & dd & "'","计划执行日期")

dr1("计划执行日期") = dr2("计划执行日期")

output.show(dd)

output.show(dr1("计划执行日期"))

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/20 10:53:00 [只看该作者]

参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=134162&skin=0

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=132745&skin=0

malavazos

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：357 积分：3418 威望：0 精华：0 注册：2012/8/29 10:30:00

Post By：2019/5/20 14:12:00 [只看该作者]

我想对数字列上面增加会总行，如何添加？谢谢

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/20 15:02:00 [只看该作者]

设置汇总模式，如

http://www.foxtable.com/webhelp/scr/00144.htm

下一主题 >> << 上一主题

主题：无法提取不重复编号的第一个日期值