根据表的数字自动生成多行

sunrise　发表于：2017-11-07 11:15:57 　

复制

表中**部份是Access表,在报表里根据包装的数自动生成红色的数吗?
例如**表,深圳的1105除包装250.在红色部份里自动产生4行250的+尾数105.
最后E列=N列.

点击下载此附件

Top

chinasa 发表于：2017-11-07 13:48:15

在报表里没做过，不过可以考虑变通解决：

1.建立临时表TB1。

2.**表建立查询：包数=int(总份数/包装) ；零散包数量=总份数-包int(总份数/包装) *包装

3.用代码根据**表查询向TB1写数据：线路、站点、每包份数（就是等于包数）、包装这几个字段根据包数来确定循环次数。最后再增加一条记录来写零散包数量。

Top

chinasa 发表于：2017-11-07 13:49:06

哈哈，本网站竟然对黄/色设置敏感词语？？？？？

Top

黎明发表于：2017-11-07 14:36:19

原理,就是这样.前面的做好了,到循环次数那里就不知如何做了,chinasa方便留下QQ吗.

Top

chinasa 发表于：2017-11-07 15:13:16

Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
rs.Open "**表查询", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs2.Open "临时表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.MoveFirst
Do Until rs.EOF
包数=rs("CARRIER")
i=1
do until i>包数
    rs2.AddNew
    rs2![线路] = rs("线路")
    rs2![每包份数] = rs("包装")
    rs2.Update
    i=i+1
loop

if 零散包数量>0 then
    rs2.AddNew
    rs2![线路] = rs("线路")
    rs2![每包份数] = rs("包装")
    rs2.Update
end if

rs.MoveNext
Loop

Top

chinasa 发表于：2017-11-07 15:13:49

我没有实际测试过，你测试下吧。思路大概就是这么个思路。

Top

黎明发表于：2017-11-07 16:12:43

chinasa大神，求指教，看下我的Access，加代码到那里呢。

Top

chinasa 发表于：2017-11-08 16:34:30

你没上传过ACCESS啊。

Top