Select Case e.DataCol.Name
Case "毛坯编码"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("毛坯编码") Then
dr("类型") = Nothing
Else
Dim filter As String
filter = "毛坯编码= \'" & dr("毛坯编码") & "\'"
pr = DataTables("过程异常明细").SQLFind(filter)
If pr IsNot Nothing Then
dr("类型") = pr("级别类型")
End If
End If
End Select