主题：数据录入

If e.DataCol.name="磁粉探伤" Then
   If e.DataRow.isnull("磁粉探伤")=False Then
        Dim s As String = e.DataRow("磁粉探伤")
       If val(s) < 99999 AndAlso s.IndexOf("-") <0  Then
           e.DataRow("磁粉探伤") = Date.today.year - 2000 & "-" & e.DataRow("磁粉探伤") & "-" & "1"
       End If
   End If
End If

另外，AfterEdit事件中的代码可以删除的了，多余了