Foxtable(狐表)用户栏目专家坐堂 → 求代码 以OK!


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

主题:求代码 以OK!

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


加好友 发短信
等级:童狐 帖子:242 积分:2235 威望:0 精华:0 注册:2011/8/16 22:33:00
求代码 以OK!  发帖心情 Post By:2012/2/1 16:10:00 [只看该作者]

假定新增行的 日期 列是 2012-01-12 现在要让 年份 列自动输入 2012

求表事件的代码

[此贴子已经被作者于2012-2-2 0:31:11编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/1 16:38:00 [只看该作者]

用表达式列即可:

http://www.foxtable.com/help/topics/1285.htm

 


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


加好友 发短信
等级:童狐 帖子:242 积分:2235 威望:0 精华:0 注册:2011/8/16 22:33:00
  发帖心情 Post By:2012/2/1 18:54:00 [只看该作者]

年份列是用于做表间关联的,所以不能是表达式列。


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


加好友 发短信
等级:童狐 帖子:268 积分:2307 威望:0 精华:0 注册:2010/3/26 14:08:00
  发帖心情 Post By:2012/2/1 21:23:00 [只看该作者]

DataColChanged事件

Select Case e.DataCol.Name
    Case "日期"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("年份") = Nothing
        Else
            e.DataRow("年份") = cdate(e.DataRow("日期")).year
        End If
End Select

 

DataRowAdding事件

e.DataRow("日期") = Date.Today

[此贴子已经被作者于2012-2-1 21:23:39编辑过]

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


加好友 发短信
等级:童狐 帖子:242 积分:2235 威望:0 精华:0 注册:2011/8/16 22:33:00
  发帖心情 Post By:2012/2/2 0:30:00 [只看该作者]

非常感谢! OK


 回到顶部