如何实现取值到最后一次录入数据值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现取值到最后一次录入数据值

共有3017人关注过本帖树形打印复制链接主题：如何实现取值到最后一次录入数据值

有点蓝

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

加好友

发短信

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

Post By：2019/9/12 9:30:00 [只看该作者]

上传实例说明

lg_yaolong

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

加好友

发短信

等级：童狐帖子：230 积分：1949 威望：0 精华：0 注册：2019/1/16 21:25:00

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

If e.DataCol.Name = "车号" Then

If e.NewValue Is Nothing Then

e.DataRow("上次_小时公里") = Nothing

Else

Dim dr As DataRow

dr = DataTables("燃油录入").Find("[车号] = '" & e.NewValue & "'")

'dr = DataTables("燃油录入").Find("[车号] = '" & e.NewValue & "'","[日期] desc")

' dr = DataTables("燃油录入").Find("[车号] = '" & e.NewValue & "'","[日期]")

If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing

e.DataRow("上次_小时公里") = dr("本次_小时公里")

End If

[此贴子已经被作者于2019/9/12 15:02:33编辑过]

lg_yaolong

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

加好友

发短信

等级：童狐帖子：230 积分：1949 威望：0 精华：0 注册：2019/1/16 21:25:00

Post By：2019/9/12 15:00:00 [只看该作者]

想实现功能，录入数据时，对上次_数据自动填充为上次录入的本次数据，也就是每次统计，只填写本次里程，上次里程自动填充

lg_yaolong

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

加好友

发短信

等级：童狐帖子：230 积分：1949 威望：0 精华：0 注册：2019/1/16 21:25:00

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

[此贴子已经被作者于2019/9/12 15:02:10编辑过]

lg_yaolong

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

加好友

发短信

等级：童狐帖子：230 积分：1949 威望：0 精华：0 注册：2019/1/16 21:25:00

Post By：2019/9/12 15:08:00 [只看该作者]

此主题相关图片如下：燃油录入.jpg

有点蓝

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

加好友

发短信

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

Post By：2019/9/12 15:22:00 [只看该作者]

dr = DataTables("燃油录入").Find("[车号] = '" & e.NewValue & "' and [_Identify] < " & e.datarow("_Identify"),"[_Identify] desc")

lg_yaolong

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

加好友

发短信

等级：童狐帖子：230 积分：1949 威望：0 精华：0 注册：2019/1/16 21:25:00

Post By：2019/9/12 17:43:00 [只看该作者]

非常感谢，困扰一周的问题，终于解决了，感谢老师。

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

总数 27 上一页 1 2 3

主题：如何实现取值到最后一次录入数据值