主题：返回年月的表事件问题

Dim d As Date = Tables("A表").Current("日期")
Dim dy As Date = Tables("A表").Current("所属年份")
Dim dm As Date = Tables("A表").Current("所属月份")
Dim d2 As Date = d.AddMonths(-1) '减去1个月
dy=format(d2,"yyyy年")
dm=format(d2,"MM月" )

DataColChanged表事件

无法得到年和月，错误

此主题相关图片如下：cw.jpg

请问，怎么写？