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

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）

zpy2

先把qry变成tbl，再修改包装号。

zpy2

Function FillNumbers()
Dim strSql As String
Dim rs As DAO.Recordset, i As Integer
strSql = "SELECT * FROM tblPackage"
Set rs = CurrentDb.OpenRecordset(strSql)
i = 1
Do While Not rs.EOF
rs.Edit
rs(0).Value = i
rs.Update
rs.MoveNext
i = i + 1
Loop
rs.Close
End Function

yanwei82123300

zpy2 发表于 2014-8-9 07:25
Function FillNumbers()
Dim strSql As String
Dim rs As DAO.Recordset, i As Integer

老师填充结果请见附件图片，请帮助看看谢谢了，祝好！顺便您也给看看，您上次做的例子（打印份数与页面显示）。

http://www.office-cn.net/forum.php?mod=viewthread&tid=118743&page=2#pid704932如果您需要收费的话我可以给您冲点话费！谢谢

yanwei82123300

黄色部分为需要填充的内容，这个是公司的制作箱单号的一部分！

zpy2

没看懂，有什么规律吗？为什么是 1 5 6 7 9 10 11不填？

zpy2

充话费？？

zpy2

哦，是要插入 2，3，4，8，12，13，14吧？

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

yanwei82123300

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

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