主题：[求助]请教老师代码怎么写？

datacolchanged事件

If e.DataCol.name = "日期" Then
    Dim d1 As Date = e.DataRow("日期")
    If d1 = Nothing Then
        e.DataRow("第一列") = Nothing
    Else
        Dim d2 As Date = new Date(d1.year, 1, 1)
        Dim sp As TimeSpan = d1 - d2
        e.DataRow("第一列") = sp.TotalDays + 1
    End If
   
End If