高手们，请问此DLookup程序为什么不能实现我想要的目的呢？

zhycfb2006

Option Compare Database

Private Sub Command2_Click()
Dim a, b, c,d
a = DLookup("中间值", "点", "编号 = 1")
b = DLookup("最大值", "点", "编号 = 1")
c =Me.Text0

If c <a Then




Me.Text3 = 10

ElseIf c > a And c <= b Then
Me.Text3= 30
ElseIf c> b Then
Me.Text3 = 50


End If




End Sub

可运行的结果确是Text2显示的总是50，为什么，什么地方有错吗？哪位兄台可告诉小弟！

在此拜谢!



一点通兄！

我把示例传上来了，请过目！

我最终的目的是我输入窗体上的目的!

[此贴子已经被作者于2006-11-18 20:56:00编辑过]

一点通

a = DLookup("[中间值]", "点", "[编号]=" & 1)
b = DLookup("[最大值]", "点", "[编号]=" & 1)

tz-chf

以下是引用一点通在2006-11-17 21:55:00的发言：
a = DLookup("[中间值]", "点", "[编号]=" & 1)
b = DLookup("[最大值]", "点", "[编号]=" & 1)

和楼主的有什么不同?

zhycfb2006

一点通 兄！

按照你的意思，跟我的效果是一样的！运行的还是50！

真的不知道是怎么错了！

howernet

用debug.print 看一下a和b的值到底是多少再判断

zhycfb2006

其实，Dlookup 可以找到表中的相应的值，如果不用循环比较的话，直接就写Me.text3=a

或者Me.text3=b，都可以赋值。

可不知为什么，用了比较后，就不能实现比较后的功能，这个循环很简单，意思也很明确，但为什么实现不了呢？

一点通

中间值,最大值是不是不同的字段?如果是同一字段,用Dlookup是不能算出最大值及中间值的,可用特定的函数

DMin()   '最小值
DMax()  '最大值
DAvg()  '平均值

[此贴子已经被作者于2006-11-18 9:01:55编辑过]

zhycfb2006

是同一个表中的不同字段！

我传个例子子，一点通兄！

麻烦帮我看看1

一点通

用RAR压缩后再上传例子

zhycfb2006

一点通兄！我把例子上传了！麻烦看看！

在此拜谢了!