主题：生日问题

DataColChanged事件中加入下面的代码:

If e.DataCol.Name = "身份证号码" Then '如果更改的是身份证号码列
    If e.DataRow.IsNull("身份证号码") Then '身份证号码是否为空
        e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
    Else
        '否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") =Format(ReadBirthDay(e.DataRow("身份证号码")),"m")
    End If
End If

结果为：

几月几日