主题：[求助]新增行时自动根据上一行日期列递增（跳过周六和周日）

DataRowAdded事件

Dim maxd As Date = e.DataTable.Compute("max(第三列)")
If maxd = Nothing Then
    maxd = Date.Today
Else
    Do
        maxd = maxd.AddDays(1)
    Loop While maxd.DayOfWeek = 0 OrElse maxd.DayOfWeek = 6
End If

e.DataRow("第三列"） = maxd

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

Dim maxd As Date = e.DataTable.Compute("max(第三列)") 第三列是日期列，计算整表第三列的最大值
If maxd = Nothing Then 如果第三列没有值
    maxd = Date.Today 从今天开始
Else
        maxd = maxd.AddDays(1) 否则为最大值+1天
End If

e.DataRow("第三列"） = maxd