| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何获取上一次抄表的读数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160499) |
| -- 作者：ybq1289 -- 发布时间：2021/2/4 16:29:00 -- 如何获取上一次抄表的读数 假定我有一张表：“抄表”，字段有：量表名称、上次抄表日期、上次抄表读数，本次抄表日期，本次抄表读数，差值，单价，小计。 现在的问题是：如何通过下拉列表选择量表名称时，找到上一次该表的“本次抄表日期”和“本次抄表读数”数据，自动填入“上次抄表日期”和“上次抄表读数”中？ 或者重新一张表“抄表2”，字段有：量表名称，抄表日期、抄表读数，单价，金额； 问题是：在下拉列表中选择“量表名称”后，填入抄表日期和抄表读数，单价（可引用）后，如何自动计算该表的差值（获取该表最后一次读数和日期）？
[此贴子已经被作者于2021/2/4 16:34:02编辑过]
|
| -- 作者：有点蓝 -- 发布时间：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 End If |