Dlookup函数中VBA语法问题？[求助]

FlySacker

过程运行时在下列语句中断，类型不匹配，不知是什么原因。

strNo = DLookup("[textNo]", "表1", "[textNo] ='" & Me!textNo & "'" And "[Version]=" & GetVersion)

其中：strNo定义为VARINT类型；textNo为文本型，Version为数字型，GetVersion为Integer型，其值从一个DMax函数获得，由于本人的VBA水平有限，搞不清是DLOOKUP函数的CRITERIA表达式的错出在哪，还是别的地方有问题。

ycyhjj2865

"[Version]=" & GetVersion 有问题吧。

请先把这部份剪切下后，调试看是否成功，如果成功那么肯定是这部份出现了问题。

我分析你应该这样写：

"[Version]= ' " & GetVersion & "' "

因为GetVersion是变量，对吧。

FlySacker

这不行，一开始我也以为是这样的问题，但在窗体中输入数据时运行这段代码时出现同样的错误提示。

ycyhjj2865

????输入数据？？？

不会是在文本框中输入数据吧？文本框的默认的数据类型可是String类型。

FlySacker

strNo = DLookup("[textNo]", "表1", "[textNo] ='" & Me!textNo & "'" And "[Version]=" & GetVersion)

输入的数据是："[textNo] ='" & Me!textNo & "'"，textNo是文本型，Version为数字型，GetVersion为Integer型，其值从一个DMax函数获得。目的是根据输入的Me!textNo 和函数得到的GetVersion从表1中找出相应的textNo。

语句中没有“And "[Version]=" & GetVersion”则函数执行是通过的，但是现在要求增加判断条件，因为记录中可能有多个相同的textNo，但他们的Version是不同的，所以用DMax函数获得其中的最大Version记录。

FlySacker

strNo = DLookup("[text]", "表1", "[textNo] ='" & Me!textNo & "'" And "[Version]=" & GetVersion)

要找出的应该是相应的text内容，记录中可能有多个相同的textNo，但他们的Version是不同的，所以用DMax函数获得其中的最大Version记录。

ycyhjj2865

Version为数字型，GetVersion为Integer型

他们的类型匹配吗？Version是数字型中哪一种，是整型？长整型？双精度型？或其他型？ 有一点值得注意就是数字型默认的是长整型也就是LONG类型。而integer是整型！在使用变量时这一点要严格区分。

这些只供参考！！

数据类型 存储空间大小范围 Byte1 个字节0 到 255

Boolean2 个字节True 或 False

Integer 2 个字节-32,768 到 32,767

Long (长整型)4 个字节-2,147,483,648 到 2,147,483,647

Single (单精度浮点型)4 个字节负数时从 -3.402823E38 到 -1.401298E-45；正数时从 1.401298E-45 到 3.402823E38

Double (双精度浮点型)8 个字节负数时从 -1.79769313486231E308 到 -4.94065645841247E-324；正数时从4.94065645841247E-324 到 1.79769313486232E308

Currency (变比整型)8 个字节从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807Decimal14 个字节没有小数点时为 +/-79,228,162,514,264,337,593,543,950,335，而小数点右边有 28 位数时为 +/-7.9228162514264337593543950335；最小的非零值为 +/-0.0000000000000000000000000001

[此贴子已经被作者于2005-11-12 15:41:24编辑过]

FlySacker

这两种类型是可以匹配的。找到原因了，只要把AND当字符串处理就行了。

strNo = DLookup("[textNo]", "表1", "[textNo] ='" & Me!textNo & "'" & "And" & "[Version]=" & GetVersion)

ycyhjj2865

呵呵。