Dim t As Table = Tables("筐架表")
Dim str As String = ""
Dim v1 = val(e.Form.controls("textbox1").text)
If v1 > 0 Then
str &= v1 & "铁箱"
t.Current("铁箱") = v1
Else
t.Current("铁箱") = Nothing
End If
Dim v2 = val(e.Form.controls("textbox2").text)
If v2 > 0 Then
str &= v2 & "铁筐"
t.Current("铁筐") = v2
Else
t.Current("铁筐") = Nothing
End If
Dim v3 = val(e.Form.controls("textbox3").text)
If v3 >0 Then
str &= v3 & "袋子"
t.Current("袋子") = v3
Else
t.Current("袋子") = Nothing
End If
Dim v4 = val(e.Form.controls("textbox4").text)
If v4 >0 Then
str &= v4 & "托盘"
t.Current("托盘") = v4
Else
t.Current("托盘") = Nothing
End If
e.Form.DropDownBox.value = str.trim("")
加好友 
发短信
Post By：2018/11/28 17:00:00 [只看该作者]
