以文本方式查看主题

-  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)("开始日期")