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


  共有3350人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望: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
End If


 回到顶部