Select Case e.DataCol.Name
Case "箱_车规格"
Dim Str1 As String = e.DataRow("箱_车规格")
If str1 <> Nothing Then
If Str1.Contains("T") = False AndAlso Str1.Contains("尺") = False Then
e.DataRow("箱_车规格") = nothing
MessageBox.show("无此车型!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
End Select