按要求自动填入表中.

汪创义　发表于：2008-06-16 22:18:45 　

复制

请教各位前辈:比如一件衣服在车间里面生产需要分30道工序来完成,当我在窗体"总工序数"一栏输入总工序数"30"时,有什么方法在表中"工序"自动填入"工序1,工序2,工序3......工序30".

Top

竹笛发表于：2008-06-16 22:37:37

工序名称就是：工序1、工序2、工序3.....?

Top

樟树发表于：2008-06-17 07:15:55

dim i as interger

for i =1 to 总工序数.value

strSQL="insert into 表(工序) values('工序" & i & "')"

DoCmd.RunSQL strsql

next i

Top

汪创义发表于：2008-06-17 08:46:33

工序1、工序2、工序3.....是工序名称,只是作为一个工序的序号而已.

我想要以下效果：

在窗体　款号处：输入"AB002"

总工序数处:输入"30"

然后会自动在表生成:

款号工序　　　工价

AB002 工序1

AB002 工序2

AB002 工序3

………………………………

AB002 工序30

请前辈帮忙了，最好有附件。谢谢！

Top

樟树发表于：2008-06-17 09:40:48

dim i as interger

for i =1 to 总工序数.value

strSQL="insert into 表名(款号,工序) values('AB002','工序" & i & "')"

DoCmd.RunSQL strsql

next i

Top

樟树发表于：2008-06-17 09:43:04

错了

dim i as interger

for i =1 to 总工序数.value

strSQL="insert into 表名(款号,工序) values('" & 款号.value & "' ,'工序" & i & "')"

DoCmd.RunSQL strsql

next i

Top

汪创义发表于：2008-06-17 10:00:28

我很菜,能搞一个附件出来吗?谢谢!

Top

蒋元根发表于：2008-06-17 10:08:52

给你做了个样例,不知道是否符合你的要求.

hotgh2003

点击下载此附件

Top

汪创义发表于：2008-06-17 10:32:11

各位前辈注意了,在窗体输入的总工序数是作为一个自动生成"工序1,工序2,-----"的一个参数.hotgh2003 那个附件

令小辈不知如何操作,是否可以直观一点.

感谢大家.

Top

汪创义发表于：2008-06-17 10:33:01

zhangyjllf 写的代码有点意思,能否搞一个附件出来,谢谢!

Top

樟树发表于：2008-06-17 12:41:31

是不是这样的

点击下载此附件

Top

总记录：10篇页次：1/1 9 1 :

Access交流中心

按要求自动填入表中.