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

设计了一个窗口和两个表，想在窗口中录入数据后按如下要求保存数据。
表一(和录入窗口一起的为表一):记录基本信息（这个已经实现），
此主题相关图片如下：图2.png

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

老师，加入语句后报错。
我把项目发上来,您受累看一下指导一下.
此处是在窗口管理——购入管理——新增购入窗口中，录入完后点保存那里。

附件里为数据库文件和项目文件，数据库使用的是SQL2005

附件1

发整理个项目总是发不上来，
把保存的按钮的全部代码复制到了记事本中,请老师帮看一下.

此主题相关图片如下：qq图片20170305163159.png

老师们请帮检查一下代码是那里放得不对。

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

 

改成

 

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

谢谢老师