以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将最后一行的开始日期来替代倒数第二行的结束日期？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11862)
--  作者：xhjbg
--  发布时间：2011/8/14 23:19:00
--  如何将最后一行的开始日期来替代倒数第二行的结束日期？
价格表中有三列：开始日期、结束日期、价格。如何将最后一行的开始日期来替代倒数第二行的结束日期？
--  作者：czy
--  发布时间：2011/8/14 23:55:00
--  

自己做个增加行的按钮，代码

 

With CurrentTable
    Dim d As Date = .Rows(.Rows.Count -1)("结束日期")
    Dim r As Row = .AddNew
    r("开始日期") = d
End With
--  作者：mr725
--  发布时间：2011/8/14 23:55:00
--  
tables("ss").rows(tables("ss").count-2)("结束日期") ＝ tables("ss").rows(tables("ss").count-1)("开始日期")