以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教窗口生成明细数据的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97046)

--  作者:hopestarxia
--  发布时间:2017/3/5 2:13:00
--  请教窗口生成明细数据的问题
设计了一个窗口和两个表,想在窗口中录入数据后按如下要求保存数据。
表一(和录入窗口一起的为表一):记录基本信息(这个已经实现),
表二:根据窗口中明细行的“起始编码”与“结束编码”生成数据;
其中:号码等于“起始编码”至“结束编码”中的所有数据,入库时间等于录入窗口中的日期;
在单击录入窗口中的“保存”按钮后,表二需生成的数据示例:
0065001   RK00004   2017-03-05
0065002   RK00004   2017-03-05
0065003   RK00004   2017-03-05
0065004   RK00004   2017-03-05
....      ......    ......     按顺序列下来
0065021   RK00004   2017-03-05
0068051   RK00004   2017-03-05
0068052   RK00004   2017-03-05
0068053   RK00004   2017-03-05
...             ....           按顺序列下来
0068101   RK00004   2017-03-05

请问:代码如何写才能在表二中生成需要的数据;
   


图片点击可在新窗口打开查看此主题相关图片如下:图2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:图一.png
图片点击可在新窗口打开查看




--  作者:有点色
--  发布时间:2017/3/5 11:29:00
--  

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


--  作者:hopestarxia
--  发布时间:2017/3/5 16:03:00
--  加入语句后报错
老师,加入语句后报错。
我把项目发上来,您受累看一下指导一下.
此处是在窗口管理——购入管理——新增购入窗口中,录入完后点保存那里。
另外代金卷号不许重复,能不能实现在保存在时候先检查是否有相同号码的卷存在?

--  作者:hopestarxia
--  发布时间:2017/3/5 16:15:00
--  
附件里为数据库文件和项目文件,数据库使用的是SQL2005
--  作者:hopestarxia
--  发布时间:2017/3/5 16:18:00
--  
附件1
--  作者:hopestarxia
--  发布时间:2017/3/5 16:27:00
--  
发整理个项目总是发不上来,
把保存的按钮的全部代码复制到了记事本中,请老师帮看一下.
保存时报错:"未找到类型"TABLE"的公共成员"ROWS" 

--  作者:hopestarxia
--  发布时间:2017/3/5 16:31:00
--  代码如下图

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170305163159.png
图片点击可在新窗口打开查看

--  作者:hopestarxia
--  发布时间:2017/3/5 20:46:00
--  请教老师们帮看看。
老师们请帮检查一下代码是那里放得不对。
--  作者:有点色
--  发布时间:2017/3/5 22:03:00
--  

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

 

改成

 

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


--  作者:hopestarxia
--  发布时间:2017/3/6 10:40:00
--  
谢谢老师