以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多行增加  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137071)
--  作者：lfxxdt
--  发布时间：2019/6/27 15:39:00
--  多行增加

Dim dr1 As DataRow = DataTables("订餐流水记录表").AddNew(10)
dr1("时间") = Date.Today()

dr1("操作员") = _UserName

我想一次性增加10行，并且每行的时间和操作员都自动生成，应该如何改上面代码。
--  作者：有点甜
--  发布时间：2019/6/27 15:57:00
--  
For i As Integer = 1 To 10
    Dim dr1 As DataRow = DataTables("订餐流水记录表").AddNew()
    dr1("时间") = Date.Today()    
    dr1("操作员") = _UserName
Next