以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  datacolchanged事件，年龄计算，找不到错误原因  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91960)
--  作者：zhangjian222200
--  发布时间：2016/10/22 20:35:00
--  datacolchanged事件，年龄计算，找不到错误原因
datacolchanged事件内，写如下程序，年龄列不能计算，系统无提示

\'计算年龄
If e.DataCol.Name = "出生日期" Then
    Dim jtrq As Date = Date.Today        \'定义:今天日期,取首字母作为变量名
    Dim csrq As Date = e.newvalue        \'定义:出生日期,取首字母作为变量名
    Dim xznf As Integer = jtrq.year      \'定义:现在年份,取首字母作为变量名
    Dim csnf As Integer = csrq.year      \'定义:出生年份,取首字母作为变量名
    Dim nl As Byte = xznf - csnf
    e.DataRow("年龄") = nl
End If
--  作者：9602084
--  发布时间：2016/10/22 23:34:00
--  
 Dim nl As interger = xznf - csnf
--  作者：狐狸爸爸
--  发布时间：2016/10/23 16:31:00
--  
测试没有问题，注意原来的数据，要重置以下列才能生效：