以文本方式查看主题

-  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