Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:询问“年龄”表达式命令是什么?

1楼
byzy3260 发表于:2008/11/27 16:10:00
易表中求年龄或工龄的命令在狐表中不能用,请问狐表中年龄的表达式如何作?查询了狐表帮助文件没找到答案,请指教!谢谢!
2楼
ybil 发表于:2008/11/27 16:17:00

Dim d1 as Date = 出生日期
Dim d2 as Date = Date.Today

Output.Show(d2.Year - d1.Year+1  & "岁")

3楼
狐狸爸爸 发表于:2008/11/27 16:20:00

将年龄列的计算代码设为:

If e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
    e.DataRow("年龄") = Nothing '则清空年龄
Else
   
'否则计算年龄
   
e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year

End If


设置计算代码之后,我们随时可以通过菜单按钮来重算年龄列,得到最新的年龄数据:

现在重算的问题解决了,但是却有新的问题,输入或修改出生日期,年龄列的数据不会自动刷新,除非你重算年龄列。

我们需要在DataColChanged事件中加入代码,使得出生日期发生变化后,能够自动重算该行的年龄列:

If e.DataCol.Name = "出生日期" Then
    e.
DataTable.DataCols("年龄").Recalc(e.DataRow)

End If

Recalc是DataCol类型的一个方法,用于重算列(也就是重新运行该列的计算代码)。
给Recalc加上参数e.DataRow,表示仅仅重算出生日期发生变化的这一行,如果省略这个参数,将重算整个年龄列,大大增加系统的负荷。

经过上述设置,输入出生日期,年龄可以自动计算,如果年龄的计算规则有变,修改了年龄列的计算代码,我们只需重算年龄列,即可得到按新规则计算得出的年龄。
如果到了明年,也只需重算年龄列即可得到最新的年龄。

4楼
byzy3260 发表于:2008/11/27 16:47:00
请问,年龄列设成“数据列”还是“表达式列”?,我把公式复制粘贴到年龄列的计算代码窗口,年龄列并没有什么变化!
5楼
ybil 发表于:2008/11/27 16:55:00
以下是引用狐狸爸爸在2008-11-27 16:20:00的发言:


设置计算代码之后,我们随时可以通过菜单按钮来重算年龄列,得到最新的年龄数据:

现在重算的问题解决了,但是却有新的问题,输入或修改出生日期,年龄列的数据不会自动刷新,除非你重算年龄列。

我们需要在DataColChanged事件中加入代码,使得出生日期发生变化后,能够自动重算该行的年龄列:

If e.DataCol.Name = "出生日期" Then
    e.
DataTable.DataCols("年龄").Recalc(e.DataRow)

End If

Recalc是DataCol类型的一个方法,用于重算列(也就是重新运行该列的计算代码)。
给Recalc加上参数e.DataRow,表示仅仅重算出生日期发生变化的这一行,如果省略这个参数,将重算整个年龄列,大大增加系统的负荷。

经过上述设置,输入出生日期,年龄可以自动计算,如果年龄的计算规则有变,修改了年龄列的计算代码,我们只需重算年龄列,即可得到按新规则计算得出的年龄。
如果到了明年,也只需重算年龄列即可得到最新的年龄。

还需在数据表→表属性→事件→DataColChanged→设置如上的重算代码

6楼
byzy3260 发表于:2008/11/27 17:25:00
谢谢,成功啦!
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.