要说多少次,副本表的表名你写错了啊
请先好好看看这里 http://www.foxtable.com/webhelp/scr/1906.htm
比如,你要改成下面的代码啊
Dim ss As String = "圆钢|不锈钢|袋子|铁箱|塑箱|冰盘|铁托|木托|铁架|大网笼|小网笼|圆桶|大网筐|小网筐|方桶"
Dim str As String = ""
For i As Integer = 0 To ss.Split("|").Length - 1
If Val(e.Form.controls("textbox" & i+1).text) > 0 Then
str &= e.Form.controls("textbox" & i+1).text & ss.Split("|")(i)
Tables("主窗口_入库明细表").Current(ss.Split("|")(i)) = e.Form.controls("textbox" & i+1).text
Else
Tables("主窗口_入库明细表").Current(ss.Split("|")(i)) = Nothing
End If
Next
e.Form.DropDownBox.value = str.trim("")