- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请教老师代码怎么写？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131375)
-- 发布时间：2019/2/24 23:56:00
-- [求助]请教老师代码怎么写？
刚刚开始学习，请多多指教！谢谢！希望日期列数值变动后，[当年的第几日列]自动填写日期对应的当年的第几天，就像第一行一样，1999-1-6即为当年的第6天，就在该列填入6，
此主题相关图片如下：20190224233355.png
-- 发布时间：2019/2/25 9:36:00
--
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
-- 发布时间：2019/2/25 21:14:00
-- 谢谢老师！
谢谢老师！