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

if Tables("A表").Current.isnull("日期") = false then
    Dim d As Date = Tables("A表").Current("日期")   
    d = d.AddMonths(-1) '减去1个月
    Tables("A表").Current("所属年份") = d.year
    Tables("A表").Current("所属月份") = d.month
End If