以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助,将今天的起始表码列的数值自动输入到昨天截止表码列应该如何实现  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102532)

--  作者:gaoxin1986
--  发布时间:2017/6/21 22:34:00
--  求助,将今天的起始表码列的数值自动输入到昨天截止表码列应该如何实现
如题求助,在一个电量记录表中如何将今天的起始表码列的数值自动输入到昨天截止表码列??
--  作者:有点色
--  发布时间:2017/6/21 23:57:00
--  
 上传具体的数据表格测试。
--  作者:gaoxin1986
--  发布时间:2017/6/22 0:57:00
--  
色大师,我在公司每天要抄十几块电表,五六块水表,五六块蒸汽流量表,每天早上7点半上班后抄表后计算出各块表从前一天早晨7点30到当天早晨7点30的用电量,用水量,用汽量,然后写成报表报给生产副总。表格里前一天的截止表码即为后一天的起始表码,我现在想实现输入前一天的截止表码后,在增加行的时候,前一天的截止表码自动输入后一天起始表码里,请问怎么实现?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:有点蓝
--  发布时间:2017/6/22 9:10:00
--  
DataRowAdding事件

‘e.DataRow("抄表日期") = Date.Today
Dim dr As DataRow = e.DataTable.Find("","抄表日期 desc")
If dr IsNot Nothing Then
    e.DataRow("本日起始表码") = dr("本日截止表码")
End If