以文本方式查看主题

-  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=158355)
--  作者：yetle
--  发布时间：2020/11/17 15:02:00
--  新增
Dim rq As Date = e.Form.Controls("日期").value
Dim dnew As Row = Tables("店铺流量来源_table1").AddNew(320)

dnew("日期")= rq
一次新增320行，需要将新增的行都自动填上日期，这个写法只能在第一行填上
--  作者：有点蓝
--  发布时间：2020/11/17 15:12:00
--  
Dim rq As Date = e.Form.Controls("日期").value
dim max as integer = Tables("店铺流量来源_table1").compute("max(_Identify)")
Tables("店铺流量来源_table1").AddNew(320)
Tables("店铺流量来源_table1").datetable.replacefor("日期",rq,"_Identify >" & max)