e.Form.Controls("TextBox1").text = ""
e.Form.Controls("TextBox2").text = ""
e.Form.Controls("TextBox3").text = ""
e.Form.Controls("TextBox4").text = ""
Dim str As String = e.Form.DropDownBox.Value
If str = "" Then Return
Dim p2 As String = "(铁箱|袋子|铁筐|托盘)"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Dim arr() As String = r.Split(str)
For i As Integer = 0 To arr.Length - 2 Step 2
If arr(i+1) = "铁箱" Then
e.Form.Controls("TextBox1").text = arr(i)
ElseIf arr(i+1) = "铁筐" Then
e.Form.Controls("TextBox2").text = arr(i)
ElseIf arr(i+1) = "袋子" Then
e.Form.Controls("TextBox3").text = arr(i)
ElseIf arr(i+1) = "托盘" Then
e.Form.Controls("TextBox4").text = arr(i)
End If
Next