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

For Each dr1 As DataRow In DataTables("排产登记表_明细").DataRows

Dim dr2 As DataRow =DataTables("TBL_商品表").SQLFind("商品编号='" & dr1("商品编号") & "'")

If dr2 IsNot Nothing Then

dr1("品牌")=dr2("品牌")

dr1("型号")=dr2("型号")

dr1("片数")=dr2("片数")

dr1("规格")=dr2("规格")

dr1("坯底工艺")=dr2("坯底工艺")

dr1("手感工艺")=dr2("手感工艺")

dr1("印花工艺")=dr2("印花工艺")

dr1("产品名称")=dr2("产品名称")

End If

这段代码是用写在子表里的AFTERLOAD里的，意思是一载入数据品牌型号片数这些字段都会临时从商品表里载入数据我发现查询与赋值放在一起效率非常低下帮助里有的代码是写查询与赋值是分开的，但不知道要怎么分开，请帮我分解下

主题：查询与赋值