请老师们看看如何使用循环语句来填充断包装号？谢谢

yanwei82123300

请老师们看看如何使用循环语句来填充断包装号？谢谢
PackageNo（包装号） UNIT_TOTAL（包装合计）
1                    4
5                     1
6                     1
7                      2
9                       1
10                     1
11                      4
15                      2
17                     4
21                     1
22                     6
依据UNIT_TOTAL（包装合计）来填充断的PackageNo（包装号）
正确的包装号是（1~28）

yanwei82123300

一个运单号（shipmentNO）下面有一个箱单，一个箱单下面有1到多个包装号（PackageNo）

yanwei82123300

zpy2 发表于 2014-8-10 07:29
try!!
一些字段对应不太懂，没做。

我给您提供的数据只是其中的一个运单号（ShipmentNO）的数据，如何才能依据运单号筛选进行制作箱单呢？附件是多个运单号的箱单数据

yanwei82123300

zpy2 发表于 2014-8-10 07:29
try!!
一些字段对应不太懂，没做。

zpy2 请问您哪个字段不明白！？

zpy2

try!!
一些字段对应不太懂，没做。

yanwei82123300

zpy2 发表于 2014-8-9 05:37
先把qry变成tbl，再修改包装号。

zpy老师我有整合一下数据，请再次看看！！谢谢我公司对QQ有屏蔽！晚上再找您好吗？谢谢

yanwei82123300

zpy2 发表于 2014-8-9 13:02
没看懂，有什么规律吗？为什么是 1 5 6 7 9 10 11不填？

因为导出数据已经存在了

yanwei82123300

zpy2 发表于 2014-8-9 13:45
Function FillNumbers2()
Dim strSql As String
Dim rs As DAO.Recordset, i As Integer

老师您在9楼写的代码是分两步吗？请问如何使用谢谢！

yanwei82123300

zpy2 发表于 2014-8-9 13:16
哦，是要插入 2，3，4，8，12，13，14吧？

你好！请看附件两个（一个是公司IT做的网页版本箱单，另外一个是每天导出数据）导出的数据将依据包装号进行了合并（包装号断档），我想拆分成网页版本箱单。

zpy2

Function FillNumbers2()
Dim strSql As String
Dim rs As DAO.Recordset, i As Integer
Dim iPackNo As Integer
iPackNo = DSum("UNIT_TOTAL", "tblPackage")

'strSql = "DELTE FROM tblPackage2 "
On Error Resume Next
strSql = "DROP TABLE tblPackage2"
CurrentDb.Execute strSql
strSql = "SELECT PackageNo INTO tblPackage2 FROM tblPackage WHERE PackageNo=0"
CurrentDb.Execute strSql

'Fill
strSql = "SELECT PackageNo FROM tblPackage2 "
Set rs = CurrentDb.OpenRecordset(strSql)
i = 1
For i = 1 To iPackNo
rs.AddNew
rs(0).Value = i
rs.Update
Next
rs.Close
Set rs = Nothing
End Function