- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于Format日期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1693)
-- 发布时间：2009/1/28 22:46:00
-- [求助]关于Format日期
假设:
dim d as date = date.today
dim month as Double = d.month
if Format(#[出生日期]#, "MM") = month then
"生日费"="100"
end if
[出生日期] "生日费" 其实都为列名
请问如何正确更改Format
也就是:出生日期(月份)=系统当前月份 那么 发放生日费100元 谢谢
-- 发布时间：2009/1/29 1:51:00
--
表属性的AfterEdit事件中设置代码，输入出生日期后自动判断并生成生日费
if e.col.name = "出生日期"
if e.Row("出生日期").Month = date.today.Month
e.Row("生日费") = 100
else
e.Row("生日费") = 0
end if
end if
-- 发布时间：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编辑过]
-- 发布时间：2009/1/29 20:13:00
--
说明书内容太多,对于我们初学者常常看了后面忘了前面,或者连贯不起来..
如果哪位好心人多多并常常收集些,实用案例在code文件,供下载就好了
-- 发布时间：2009/1/29 22:26:00
--
有问题就问，有能力就答，这是自易表论坛以来秉承的优良作风和传统，大家只要互帮互助，相信都能快速提高的！
-- 发布时间：2009/1/29 22:32:00
--
以下是引用舜风在2009-1-29 20:13:00的发言：
说明书内容太多,对于我们初学者常常看了后面忘了前面,或者连贯不起来..
如果哪位好心人多多并常常收集些,实用案例在code文件,供下载就好了
说明书内容太多,对于我们初学者常常看了后面忘了前面,或者连贯不起来..
如果哪位好心人多多并常常收集些,实用案例在code文件,供下载就好了
呵呵，这个说明书可是我最佩服的说明书了，倒不是我拍贺老师的马屁，可以说没有几款软件的说明书能与之相提并论，尤其是贺老师一个人既开发软件又编写这么详细的说明书，实属我等学习的榜样！
[此贴子已经被作者于2009-1-29 22:32:16编辑过]