主题：日期表达式报错，请帮忙。

老师：

日期表达式报错，请帮忙。

在表属性AfterEdit中报错，我的意思是如果项目列改动时，日期列若为空，日期列等于当天日期，若不为空，等于原来的日期。

 

If e.Col.Name = "项目" Then
    If e.Row.IsNull("日期") Then
        e.Row("日期") = " " & Date.Now
    Else
        e.Row("日期") = ""
    End If
End If

 

 

此主题相关图片如下：qq截图20120820100815.jpg

If e.Col.Name = "项目" Then
    If e.Row.IsNull("日期") Then
        e.Row("日期") =  Date.Now
    Else
        e.Row("日期") = Nothing
    End If
End If

If e.Col.Name = "项目" Then
    If e.Row.IsNull("项目") Then
        e.Row("日期") = Nothing
    Else
        If e.Row.IsNull("日期") Then
            e.Row("日期") = Date.Now
        End If
    End If
End If

If e.Col.Name = "项目" Then     If e.Row.IsNull("日期") Then         e.Row("日期") =  Date.Now     Else         e.Row("日期") = Nothing     End If End If

If e.Col.Name = "项目" Then     If e.Row.IsNull("日期") Then         e.Row("日期") =  Date.Now     Else         e.Row("日期") = Nothing     End If End If

 

e.Row("日期") = Nothing  标示日期栏为空

e.Row("日期") = Date.Now  标示日期栏为今天的日期

我还需要：如果项目栏改动了或者又改成为空了，且日期栏已经有日期（不为空），日期栏还是显示为原来的日期。请问如何表达？

设置在DataColChanged事件：

 

If e.DataCol.Name = "项目" Then
     If e.DataRow.IsNull("日期") Then
           e.DataRow("日期") = Date.Now
     End If
End If

问题解决了，非常感谢！