主题：[求助]代码如何修正错误地方？

Select Case e.DataCol.Name
    Case "出piao日期"
        If e.DataRow.IsNull("出piao日期").Then
            e.DataRow("年") = Nothing
            e.DataRow("月") = Nothing
            e.DataRow("日") = Nothing
        Else
            e.DataRow("年") = CurRow("出piao日期").Year
            e.DataRow("月") = CurRow("出piao日期").Month
            e.DataRow("日") = CurRow("出piao日期").Day
        End If
End Select