在狐表中对单元格进行剪切、删除操作时，狐表自动退出，是什么问题？
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事件代码。请审查一下，错误在哪里。
谢谢。
下面代码去掉，纯粹多此一举
DataTables("学籍表").DataCols("出生日期").RaiseDataColChanged()
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
能计算出年龄，而
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
计算不出学龄？同样的代码啊。
谢谢。