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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何获取上一次抄表的读数

共有2718人关注过本帖树形打印复制链接主题：如何获取上一次抄表的读数

ybq1289

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

加好友

发短信

等级：婴狐帖子：1 积分：70 威望：0 精华：0 注册：2021/2/4 16:24:00

如何获取上一次抄表的读数 发帖心情

Post By：2021/2/4 16:29:00 [只看该作者]

假定我有一张表：“抄表”，字段有：量表名称、上次抄表日期、上次抄表读数，本次抄表日期，本次抄表读数，差值，单价，小计。

现在的问题是：如何通过下拉列表选择量表名称时，找到上一次该表的“本次抄表日期”和“本次抄表读数”数据，自动填入“上次抄表日期”和“上次抄表读数”中？

或者重新一张表“抄表2”，字段有：量表名称，抄表日期、抄表读数，单价，金额；

问题是：在下拉列表中选择“量表名称”后，填入抄表日期和抄表读数，单价（可引用）后，如何自动计算该表的差值（获取该表最后一次读数和日期）？

[此贴子已经被作者于2021/2/4 16:34:02编辑过]

有点蓝

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

加好友

发短信

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

Post By：2021/2/4 16:42:00 [只看该作者]

比如datacolchanged事件

If e.DataCol.Name = "量表名称" Then

Dim dr As DataRow = e.DataTable.find("量表名称='" & e.DataRow("量表名称") & "' and 本次抄表日期 is not null and _Identify<>" & e.DataRow("_Identify") ,"本次抄表日期 desc")

If dr Is not Nothing Then '如果找到的话

e.DataRow("上次抄表日期") = dr("本次抄表日期")

e.DataRow("上次抄表读数") = dr("上次抄表读数")

End If

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

主题：如何获取上一次抄表的读数