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里的 ，意思是一载入数据 品牌 型号 片数这些字段都会临时从商品表里载入数据 我发现 查询与赋值放在一起效率非常低下 帮助里有的代码是写 查询与赋值是分开的，但不知道要怎么分开，请帮我分解下
加好友 
发短信
Post By：2021/8/31 23:14:00 [显示全部帖子]
