Foxtable(狐表)用户栏目专家坐堂 → [求助]关于Format日期


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

主题:[求助]关于Format日期

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


加好友 发短信 小学文化
等级:小狐 帖子:374 积分:2318 威望:0 精华:0 注册:2008/12/6 20:34:00
[求助]关于Format日期  发帖心情 Post By:2009/1/28 22:46:00 [显示全部帖子]

假设:
dim d as date = date.today
dim month as Double = d.month
if Format(#[出生日期]#, "MM") = month then
    "生日费"="100"
end if


[出生日期]   "生日费"  其实都为列名图片点击可在新窗口打开查看

请问如何正确更改Format
也就是:出生日期(月份)=系统当前月份 那么 发放生日费100元   谢谢

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


加好友 发短信 小学文化
等级:小狐 帖子:374 积分:2318 威望:0 精华:0 注册:2008/12/6 20:34:00
  发帖心情 Post By:2009/1/29 18:40:00 [显示全部帖子]

明白了,谢谢

由于出生日期都是事先输入(或由身份证换算出来的)
所以我把代码改为:
先DatacolChanged中加入

if e.Datacol.name = "出生日期" then
    if e.DataRow("出生日期").Month = date.today.Month
        e.DataRow("工资及津补贴_生日费") = 100
    else
        e.DataRow("工资及津补贴_生日费") = Nothing
    end if
end if

并在MainTableChanged中加入

DataTables("当月退休工资表").DataCols("出生日期").RaiseDataColChanged()
[此贴子已经被作者于2009-1-29 20:04:12编辑过]

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


加好友 发短信 小学文化
等级:小狐 帖子:374 积分:2318 威望:0 精华:0 注册:2008/12/6 20:34:00
  发帖心情 Post By:2009/1/29 20:13:00 [显示全部帖子]

说明书内容太多,对于我们初学者常常看了后面忘了前面,或者连贯不起来..图片点击可在新窗口打开查看

如果哪位好心人多多并常常收集些,实用案例在code文件,供下载就好了

 回到顶部