Select Case Combo1.Text
Case "大版"
  da = dmax("val(right([bhao],5))", "bhao", "left([bhao],2)='e1'") + 1
  dd = Format(Str(da), "00000")
  Text1.Text = "e1" & dd
Case "小版"
  xao = dmax("val(right([bhao],5))", "bhao", "left([bhao],2)='e3'") + 1
  xx = Format(Str(xao), "00000")
Text1.Text = "E3" & xx End Select
为什么总提示我Dmax 未补定义呢？难道在VB中Dmax不可以用吗？
我在access2000中测试过了，可是用到VB中就不可以了，我想问题，这个问题除了用这个涵数，在VB中还有没有其它的涵数和Dmax一样能达到目的呢？

VB里哪来的dmax函数?

2楼的版主，我想问一下，在VB有什以涵数和DMAX的涵数功能是相同的！

请问下面问题如何解决?

我没听说过dmax函数，你能解释一下吗？

dmax涵数就是求出某一个字段中这一列中最大的数值

比方说数据库名DB1 有一个表名为table1                 table1里面有一个字段bhao
bhao的内容为：e100001  e100002 e100003 e100004  e300001  e300002  e300003  e30004  p100001  p100002  p100003
现在要求出以E1开头的最大数，以E3开头的最大数   以P1开头的最大数
求出来以E1开头的最大数为：e100004  
。。。。E3.......................：e300004
.............P1.......................：p100003

不知道版主能否看明白我的解释呢？

版主，请问你的QQ是多少号，我的QQ：121084480  如果你不方便给我联系，请留下你的QQ号，我来给你联系吧！

我真是服了你了，上网都不会吗？