For Each r As Row In e.form.Controls("Table1").rows
Dim sd As Double = r("起始号码")
Dim ed As Double = r("结束号码")
Dim t As Table = Tables("表B")
For i As Integer = sd To ed
Dim nr As Row = t.AddNew
nr("号码") = format(i, "0000000")
nr("入库单号") = e.form.controls("TextBox1").Text
nr("入库时间") = Date.Today
Next
Next