查表赋值有没有快速的办法? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我有一表格,需要根据参数表查表赋值,参数表表格如下:大概有260行左右

此主题相关图片如下：搜狗截图20200221155524.png

For Each r As Row In Tables("导入预算表").rows

Tables("特征码参数表格").filter="资金性质代码 like '%" & r("资金性质代码") & "%' and 支出类别代码 like '%" & r("支出类别代码") & "%' and (预算来源代码is null or 预算来源代码= '" & r("预算来源") & "') and (支出结构代码 is null or 支出结构代码 = '" & r("支出结构代码") & "')"

r("特征码")= Tables("特征码参数表格").Current("预算号特征码")

现在我用循环的方式,给3000条记录,根据参数表4个代码的值,查出特征码,填入记录,用了大概9分钟,我觉得效率太低了,有什么快速的办法?

此主题相关图片如下：搜狗截图20200221155508.png

主题：查表赋值有没有快速的办法?