以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助,自动填入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136679)

--  作者:long086
--  发布时间:2019/6/18 23:41:00
--  求助,自动填入

图片点击可在新窗口打开查看此主题相关图片如下:000.png
图片点击可在新窗口打开查看
请问一下如何实现,新增一行,默认起始时间,是上一行的结束时间,谢谢
--  作者:long086
--  发布时间:2019/6/19 10:03:00
--  求高手指点一下
求高手指点一下
--  作者:有点甜
--  发布时间:2019/6/19 10:39:00
--  

比如,datarowadded事件

 

Dim pdr As DataRow = e.DataTable.Find("结束时间 is not null", "_Identify desc")

If pdr IsNot Nothing Then

    e.datarow("开始时间") = pdr("结束时间")

End If


--  作者:long086
--  发布时间:2019/6/19 23:40:00
--  谢谢
谢谢指点,但是按照你的方法是可以实现,但是按照你的方法是查询所有人后的一个最大日期,不是 王一  个人的最大日期 ,怎样实现增加的是王一就是王一的最大日期,李四就是李四的最大日期
--  作者:有点甜
--  发布时间:2019/6/20 9:36:00
--  

datacolchanged事件

 

If e.datacol.name = "客户名" Then

Dim pdr As DataRow = e.DataTable.Find("结束时间 is not null and 客户名 = \'" & e.datarow("客户名") & "\'", "_Identify desc")

If pdr IsNot Nothing Then

    e.datarow("开始时间") = pdr("结束时间")

End If

End If