主题：能不能多一个星期

Select e.DataCol.Name
    Case "第一列"
        If e.DataRow.IsNull(e.DataCol) = False Then
            e.DataRow("第二列") = DatePart("ww",Date.Today.AddDays(6))
            e.DataRow("第三列") = Date.Today
        End If
End Select

6楼就是你的意思。明天，第二列就会显示18