主题：录入窗口自动提取年龄

老师们好，本例子窗口中需要的代码在那个事件中怎样写出来，请帮忙！

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

点击浏览该文件:foxtable例子.rar

datacolchanged事件

 

If e.DataCol.Name = "身份证号码" Then '是身份证号码发生变化吗?
    If e.DataRow.IsNull("身份证号码") Then '身份证号码是否为空
        e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
    Else
        '否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
    End If
ElseIf e.DataCol.name = "出生日期" Then
    If e.newvalue <> Nothing Then
        Dim y As Integer = e.NewValue.year
        If format(e.newvalue, "MMdd") <= Format(Date.Today, "MMdd") Then
            e.DataRow("年龄") = Date.Today.Year - y
        Else
            e.DataRow("年龄") = Date.Today.Year - y -1
        End If
    Else
        e.DataRow("年龄") = Nothing
    End If
End If

这些代码在我的窗口中不管用啊，能不能解释一下在窗口中怎么实现？

内部数据表

老师！ ，能不能在例子中操作？

datacolchanged在表属性中能实现，但是本人在窗口中无法完成此项操作，请帮忙！

代码你写在 【数据表】 窗口的Table控件的 DataColChanged 事件写2楼代码。

知道了，非常感谢