[求助]自动拆分日期列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用程兴刚在2013-10-28 7:55:00的发言：
第二行加入 if e.row.isnull("A") = false否则要报错

[此贴子已经被作者于2013-10-28 16:04:28编辑过]

按上面两位大侠的方法,在AfterEdi中加入下面代码

If e.Col.name = "登记日期" Then
If e.Row.isnull("登记日期") = False
Dim dat As Date = e.Row("登记日期")
   e.Row("登记日期年") = dat.Year
   e.Row("登记日期月") = dat.Month
   e.Row("登记日期日") = dat.day
End If
End If

上述代码,在表上直接编辑时有效,但用录入窗口的方式对表进行编辑时无效,需要怎么调整呢,请指点!

主题：[求助]自动拆分日期列