主题：自动显示当前日期

If e.DataCol.Name = "已付款" Then
    If e.NewValue = True Then
        e.DataRow("结算日期") = Date.today
    Else
        e.DataRow("结算日期") = Nothing
    End If
End If