以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  返回年月的表事件问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87040)
--  作者：hongyefor
--  发布时间：2016/7/1 13:35:00
--  返回年月的表事件问题

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
图片点击可在新窗口打开查看

 

请问，怎么写？
--  作者：大红袍
--  发布时间：2016/7/1 14:19:00
--  

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