Dim cmd As new SQ LCommand
cmd.C
For Each dr As Row In Tables("电子进度").Rows
cmd.CommandText = "S elect Count(DISTINCT SNCode) FROM {AutoTPJ} WHERE SNCode In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键")
& "')"
dr("t1") = cmd.ExecuteScalar()
cmd.CommandText = "S elect Count(DISTINCT 条形码) FROM {检验} WHERE 工序 = '焊线' And 条形码 In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
dr("t2") = cmd.ExecuteScalar()
cmd.CommandText = "S elect Count(DISTINCT bh) FROM {wbSheet} WHERE bh In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
dr("t3") = cmd.ExecuteScalar()
cmd.CommandText = "S elect Count(DISTINCT bh) FROM {Creep1} WHERE bh In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
dr("t4") = cmd.ExecuteScalar()
cmd.CommandText = "S elect Count(DISTINCT SNCode) FROM {HistoryStoreData} WHERE SNCode In (S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键") & "')"
dr("t5") = cmd.ExecuteScalar()
Next
上面的代码SQL子查询中重复使用了S elect 条形码 FROM {条形码记录表} WHERE 主键 = '" & dr("主键")
请教如何优化可以提高效率？
[此贴子已经被作者于2024/1/5 16:14:19编辑过]
加好友 
发短信
Post By：2024/1/5 16:12:00 [只看该作者]
