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

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

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

if dr isnot nothing then

r("特征码")= dr("预算号特征码")

end if

可以再试试：http://www.foxtable.com/webhelp/topics/2225.htm

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