自己做个增加行的按钮,代码
With CurrentTable Dim d As Date = .Rows(.Rows.Count -1)("结束日期") Dim r As Row = .AddNew r("开始日期") = dEnd With