主题：请教窗口生成明细数据的问题

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

For Each r As Row In e.form.Controls("Table1").rows

改成

For Each r As Row In e.form.Controls("Table1").Table.rows