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

刚刚开始学习，请多多指教！谢谢！希望日期列数值变动后，[当年的第几日列]自动填写日期对应的当年的第几天，就像第一行一样，1999-1-6即为当年的第6天，就在该列填入6，
此主题相关图片如下：20190224233355.png

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

谢谢老师！