Select Case e.DataCol.name
Case "点检序号"
If e.DataRow.IsNull("点检序号") = True Then
e.DataRow("作业区") = Nothing
e.DataRow("点检区") = Nothing
e.DataRow("序号") = Nothing
Else
Dim xh As String = e.DataRow("点检序号")
e.DataRow("作业区") = val(xh.Chars(0))
e.DataRow("点检区") = val(xh.SubString(1,2))
e.DataRow("序号") = val(xh.SubString(3))
End If
End Select