以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查询与赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171489)

--  作者:aoc103
--  发布时间:2021/8/31 23:14:00
--  查询与赋值
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
Next
这段代码是用写在子表里的AFTERLOAD里的 ,意思是一载入数据 品牌 型号 片数这些字段都会临时从商品表里载入数据  我发现 查询与赋值放在一起效率非常低下 帮助里有的代码是写 查询与赋值是分开的,但不知道要怎么分开,请帮我分解下

--  作者:有点蓝
--  发布时间:2021/9/1 8:30:00
--  
参考:http://www.foxtable.com/webhelp/topics/2225.htm

另外,如果商品表数据经常需要使用的,建议一次性加载进来使用,然后使用Find