主题：如何通过身份证号生成性别、年龄

DataColChanged事件

一、 

If e.DataCol.Name = "身份证号码" Then
    If e.NewValue > "" Then
        e.DataRow("性别") = ReadSex(StrToNarrow(e.NewValue))
        Dim y,m,d As Integer
        DateYMD(ReadBirthDay(StrToNarrow(e.NewValue)),Date.Today,y,m,d)
        e.DataRow("年龄") = y
    End If
End If

二、

For Each dc As DataCol In e.DataTable.DataCols

    If e.DataTable.DataCols.Contains(dc.name & "大写") Then

        If e.DataRow.IsNull(dc.name) = False Then

            e.DataRow(dc.name & "大写") =  CUMoney(format(e.DataRow(dc.name), "0.00"))

        Else

            e.DataRow(dc.name & "大写") =  Nothing

        End If

    End If

Next

这两段代码可以同时放在DataColChanged事件吗？