Tables("学习记忆表").Filter = "[可修正参数_铁芯级数] = '" & DataTables("圆形计算程序").Find("参数名称 = '铁芯级数'")("修正") & "'"
Tables("学习记忆表")里[可修正参数_铁芯级数]列为Double型,里面是空值
DataTables("圆形计算程序").Find("参数名称 = '铁芯级数'")("修正")也是Double型,里面也是空值
你这个根本就没有执行空值判断好不好,你是在嵌套了一个查询值而已
可以参考如下:
dim ab as row=Tables("学习记忆表").current
if ab("可修正参数_铁芯级数") ="" then
’执行代码1
else
’执行代码2
end if