请教vba中用字符串参数代替一部分语句的问题

smilingkiss

一个函数里面有以下条件语句:

if me.a字段 > 0 then
...1
end if


我想把">0"先用字符串赋值代替下来,例如:
dim str as string
str=">0"
if (me.a字段 & str) then
...1
end if
结果运行的时候就出错了,请问这个思路,正确的语句应该如何写?

tmtony

这样不行,但你可以
dim blnValue as boolean
blnValue=(me.a字段 > 0)
用blnValue 来替换 后面的

todaynew

可用Eval函数计算字符串表达的一个算式：

function 某函数名称(str as string)
    ......
    if Eval("me.a字段.value" & str)=True then
        .....
    end if
    ......
end function

smilingkiss

谢谢!谢谢各位!