- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教窗口生成明细数据的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97046)
-- 发布时间：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
-- 发布时间：2017/3/5 16:03:00
-- 加入语句后报错
老师，加入语句后报错。
我把项目发上来,您受累看一下指导一下.
此处是在窗口管理——购入管理——新增购入窗口中，录入完后点保存那里。
另外代金卷号不许重复，能不能实现在保存在时候先检查是否有相同号码的卷存在？
-- 发布时间：2017/3/5 16:15:00
--
附件里为数据库文件和项目文件，数据库使用的是SQL2005
-- 发布时间：2017/3/5 16:18:00
--
附件1
-- 发布时间：2017/3/5 16:27:00
--
发整理个项目总是发不上来，
把保存的按钮的全部代码复制到了记事本中,请老师帮看一下.
保存时报错:"未找到类型"TABLE"的公共成员"ROWS"
-- 发布时间：2017/3/5 16:31:00
-- 代码如下图
此主题相关图片如下：qq图片20170305163159.png
-- 发布时间：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
-- 发布时间：2017/3/6 10:40:00
--
谢谢老师