If e.DataCol.Name = "身份证号" Then '如果更改的是身份证号码列
If e.DataRow.IsNull("身份证号") Then '身份证号码是否为空
e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
Else
'否则从身份证号码列中提取出生日期
e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
End If
End If
If e.DataCol.Name = "身份证号" Then '如果更改的是身份证号码列
If e.DataRow.IsNull("身份证号") Then '身份证号码是否为空
e.DataRow("性别") = Nothing '如果为空,则清除出生日期
Else
'否则从身份证号码列中提取出生日期
e.DataRow("性别") = Readsex(e.DataRow("身份证号"))
End If
End If
If e.DataCol.Name = "出生日期" Then
If e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
e.DataRow("年龄") = Nothing '则清空年龄
Else
'否则计算年龄
e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year
End If
End If
DataTables("学籍表").DataCols("出生日期").RaiseDataColChanged()
If e.DataCol.Name = "入学日期" Then
If e.DataRow.IsNull("入学日期") Then '如果没有输入出生日期
e.DataRow("学龄") = Nothing '则清空年龄
Else
'否则计算年龄
e.DataRow("学龄") = Date.Today.Year - e.DataRow("入学日期").Year
End If
End If
DataTables("学籍表").DataCols("入学日期").RaiseDataColChanged()
以上是[学籍表]中的DataColChanged事件代码。请审查一下，错误在哪里。
谢谢。
加好友 
发短信
Post By：2024/1/6 12:45:00 [显示全部帖子]
