主题：求助年龄计算设置公式1

我在窗口控件里的年龄计算代码.你可以参考一下.

Dim d1 As Date = Date.Today
Dim d2 As Date = e.form.controls("DateTimePicker2").Value
Dim nl As integer = d1.Year-d2.Year
e.form.controls("TextBox3").Value = nl

同理,在表属性的BeforeLockDataRow里加入如下代码:
Dim d1 As Date = "2007-12-31"
Dim d2 As Date = e.dataRow("第二列")
Dim nl As integer = d1.Year-d2.Year
e.dataRow("到2007年底的年龄") = nl

全选执行锁定行.OK.你试试.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table