[求助]急盼指教如何自动编箱号的问题！！！

pmclx

请教各位高手，怎样才能在报表中实现已知成品箱数，须编箱号的效果:

起始号/ 终止号/ 箱数 /品名
1/ 3  / 3 /  A
4 / 5  /  2 /  B
6 /10 / 5 /  C        

[此贴子已经被作者于2003-12-3 10:00:48编辑过]

wewyhy

库呢

wewyhy

Private Sub 命令15_Click()
Dim aaa As String
Dim bbb As String
Dim ccc As String
Dim ddd As String
ccc = 0
ddd = 0
DoCmd.GoToRecord , , acLast     '到最后一个记录
aaa = Me.No                     'aaa取最后一个记录的编号
DoCmd.GoToRecord , , acFirst    '到第一个记录
bbb = Me.No                     'bbb取第一个记录的编号
While bbb <= aaa                '判断是否超过最后一个记录，没有则循环
    ddd = CStr(CInt(ccc) + 1)   'ddd=ccc+1,这是新的起始箱
    ccc = CStr(CInt(ccc) + CInt(Me.箱数))       'ccc=ccc+箱数,这是新的终止箱
    Me.箱号 = ddd + ccc + Me.箱数 + Me.品名     '这是新的箱号
    If bbb < aaa Then           '判断是否到达最后一个记录
    DoCmd.GoToRecord , , acNext '到下一个记录
    bbb = Me.No                 'bbb取新的记录的编号
    Else                        '如果到达最后一个记录
    bbb = CStr(CInt(bbb) + 1)   'bbb=bbb+1
    End If                      '结束判断
Wend                            '结束循环
DoCmd.GoToRecord , , acFirst    '到第一个记录，可以不要
End Sub

pmclx

谢谢wewyhy!
正是我所需的!