Dim Str As String = e.Row("入库单号")
If str.Length >= 3 Then If str(2) = "1" Then ElseIf str(2) = "2" Then End IfEnd If