- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]日期递增 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105654)
-- 发布时间：2017/8/23 16:57:00
-- [求助]日期递增
Dim maxd As Date = e.DataTable.Compute("max(日期)")
If maxd = Nothing Then
maxd = Date.Today
Else
maxd = maxd.AddDays(1)
End If
e.DataRow("日期"） = maxd
上述代码是每行增加一天，如何让下图中日期为空的行为同一天呢
此主题相关图片如下：qq图片20170823165448.png
-- 发布时间：2017/8/23 19:48:00
--
不明白你的意思，你在什么时候处理的？新增行？
具体你的问题，上传实例说明。
-- 发布时间：2017/8/24 8:17:00
--
填充的时候，上面有日期的部分是每次要填充的内容，我做了个按钮
Dim f As New Filler
f.SourceTable = DataTables("基础档案")
f.SourceCols = "店铺编码,店铺名称"
f.DataTable = DataTables("日报表")
f.DataCols = "店铺编码,店铺名称"
f.Fill() \'填充数据
希望在每次填充的时候，日期自动增加一天，而且新增的行的日期要是一样的
-- 发布时间：2017/8/24 8:50:00
--
换一种方式填充
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100")
Dim dr2 As DataRow = DataTables("表B").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr2("日期") = date.today
Next
-- 发布时间：2017/8/24 10:06:00
--
哦，不过填充的并不是当天的，用date.today不合适，不过这么一说也想到了一种解决办法，增加一个日期控件，通过手工录入填充