[求助]请问Dmax的用法？请各位高手紧急救助！

乐乐

我在做一个自动生成页码的程序，遇到如下问题：
我想生成的页码格式为：page-page（如：1-2，12-80）
现在的问题是怎样才能找到此次输入前已生成的最大页码。用DMAX，怎样表示（1-2或12-80）中的“2或80”呢？
具体程序如下：
Private Sub 页数_LostFocus()
If 顺序号 = 1 Then
If 页数 = 1 Then
endpage = 1
页码 = endpage
Else
startpage = 1
endpage = 页数
页码 = startpage & "-" & endpage
End If
Else
endpage = DMax("页码", "卷内目录", "[案卷号]='me![案卷号]'")此句该怎样用
If 页数 = 1 Then
endpage = endpage + 1
页码 = endpage
ElseIf 页数 <> 1 Then
startpage = endpage + 1
endpage = Val(endpage) + Val(页数)
页码 = startpage & "-" & endpage
End If
End If
End Sub
[em24][em24][em24][em24][em24]

zhengjialon

你这份程序运行后出现什么结果呢？

乐乐

程序运行后出现的结果是这样的：
对相同类别目录的页码生成是正确的；但当类别变换时，程序无法找到该类别的上次的生成的最大页码，而是一直延续刚才的页码继续累加。
现在最重要的问题，就是在类别转换时，如何找到同类别的最大页码？
举例：（连续输入如下内容）
当类别为“1” 顺序号=1，页数=2  页码= 1-2
当类别为“1” 顺序号=2，页数=1  页码= 3
当类别为“2” 顺序号=5，页数=1  页码= 4 （而此时实际该页码并不为4）
当类别为“2” 顺序号=6，页数=2  页码= 5-6
所以请各位帮助，我现在该怎么办呢？