Foxtable(狐表)用户栏目专家坐堂 → [求助]自动拆分日期列


  共有4359人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
ZHX241806
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
[求助]自动拆分日期列  发帖心情 Post By:2013/10/28 6:34:00 [只看该作者]

我有4个列A、B、C、D,A列为日期列,B为年列,C为月列,D为日列,当A列输入日期时,则B列自动填入年份,C列自动填入月份,D列自动填入日,(如A:2013-10-28,则B:2013,C:10,D:28),请求高手代码如何写,谢谢!!!


 回到顶部
帅哥哟,离线,有人找我吗?
swaterj
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:81 积分:726 威望:0 精华:0 注册:2013/4/13 17:32:00
  发帖心情 Post By:2013/10/28 7:04:00 [只看该作者]

在表的AfterEdit 时间中加入如下代码:
 If e.Col.name = "A" Then
   Dim dat As Date = e.Row("A")
   e.Row("B") = dat.Year
   e.Row("C") = dat.Month
   e.Row("d") = dat.day
End If
[此贴子已经被作者于2013-10-28 7:07:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40574 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/10/28 7:55:00 [只看该作者]

第二行加入 if e.row.isnull("A") = false否则要报错
[此贴子已经被作者于2013-10-28 16:04:28编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/10/28 18:23:00 [只看该作者]

很好,谢谢两位高手!!!

 回到顶部
帅哥哟,离线,有人找我吗?
99473593
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:384 积分:4174 威望:0 精华:0 注册:2011/12/31 14:28:00
  发帖心情 Post By:2014/1/12 9:22:00 [只看该作者]

以下是引用程兴刚在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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
yan2006l
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
  发帖心情 Post By:2014/1/12 9:44:00 [只看该作者]

代码是写到datachanged里面的,对应的row和col改成datarow和datacol

[此贴子已经被作者于2014-1-12 9:44:40编辑过]

 回到顶部