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

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