[求助]怎样在类别选定的情况下，提取某字段的最大值。

乐乐

我在做一个自动生成页码的程序，遇到如下问题：
我想生成的页码格式为：page-page（如：1-2，12-80）
现在的问题是怎样才能找到此次输入前已生成的最大页码。用DMAX，怎样表示（1-2或12-80）中的“2或80”呢？

我自己编写的程序已上传，请各位高手积极指正。谢谢！

文件下载

[em24][em24][em24][em24][em24]

乐乐

各位高手帮帮忙啊，怎么没人理我了。

乐乐

我的程序主要用在档案登记上。案卷号是即是档案编号。不同类别的档案有不同的档案编号。在每个档案编号中，会不许多文件存放在这里，所以我要给他们按登记的先后顺序编号即为顺序号。由于文件是在一年中先后登记的，所以我不可能总记住每次登记完后每种类别的最后一页的页码，所以我希望系统自动生成。
您可以打开我上传的程序，就知道了。
现在的问题是当档案编号改变（也即是文件类别变换时），我怎样提取这个新档案编号的最大页码。是用dmax吗？要怎么用呢？请教！

cattjiu

Dim starpage, endpage '定义起始页和结束页
Private Sub 页数_LostFocus()
    If 顺序号 = 1 Then           '顺序号代表什么实际事物的意思?
        If 页数 = 1 Then         '页数呢(同上)?
            endpage = 1
            页码 = endpage '当顺序号为1，页数=1，页码=1   '页码(同上)?
        Else
            startpage = 1
            endpage = 页数
            页码 = startpage & "-" & endpage   '当顺序号为1，页数<>1，页码=1-页数
        End If
    Else
        'endpage = DMax("页码", "卷内目录", "[案卷号 ID]=me!")
        '怎样求当[案卷号 ID]相同时上页的最大页码
        If 页数 = 1 Then
            endpage = endpage + 1
            页码 = endpage  '当顺序号<>1，页数=1，页码=上页的最大页码+1
        ElseIf 页数 <> 1 Then
            startpage = endpage + 1
            endpage = Val(endpage) + Val(页数)
            页码 = startpage & "-" & endpage '当顺序号<>1，页数<>1，页码=上页的最大页码+页数
        End If
    End If
End Sub
'举例:在案卷号相同的情况下             '案卷号又是什么具体意义?还有你的系统具体
                                       用于什么工作?(不好意思,我的确没有领会到,
                                       所以需要先明白这些才知道如何做下步)
'
'当顺序号=1,页数=1,页码=1
'当顺序号=2,页数=2,页码=2-3
'
'当顺序号=1,页数=2,页码=1-2
'当顺序号=1,页数=1,页码=3