[求助]SQLCompute代码优化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

之前是加载所有表，用Compute进行统计，很快只要200ms左右，现在全部改为SQLCompute，结果等了半小时都没反映。

Dim Sum1 As Single

Dim Sum2 As Single

Dim wlbm As String

For Each r1 As Row In Tables("物料信息表").Rows

wlbm = r1("物料编码")

Sum1 = DataTables("出入库表").SQLCompute("Sum(数量)", "入库仓 = '外协仓' And [物料编码] = '" & wlbm & "'")

Sum2 = DataTables("出入库表").SQLCompute("Sum(数量)", "出库仓 = '外协仓' And [物料编码] = '" & wlbm & "'")

r1("外协仓") = Sum1-Sum2

Sum1 = DataTables("出入库表").SQLCompute("Sum(数量)", "入库仓 = '成品仓' And [物料编码] = '" & wlbm & "'")

Sum2 = DataTables("出入库表").SQLCompute("Sum(数量)", "出库仓 = '成品仓' And [物料编码] = '" & wlbm & "'")

r1("成品仓") = Sum1-Sum2

Sum1 = DataTables("出入库表").SQLCompute("Sum(数量)", "入库仓 = '电子仓' And [物料编码] = '" & wlbm & "'")

Sum2 = DataTables("出入库表").SQLCompute("Sum(数量)", "出库仓 = '电子仓' And [物料编码] = '" & wlbm & "'")

r1("电子仓") = Sum1-Sum2

高手支个招啊？

注：物料信息表有2000行数据，这个数据每次会全部加载，出入库表数据每月有10000行以上。

[此贴子已经被作者于2014-11-14 20:17:47编辑过]

用sql语句吧

先建个查询窗口加个表控件然后把下面代码生成的数据表绑定过去或者直接fill

dim cmd as new sqlcommand

cmd.数据源名称=

cmd.sql语句="select 物流编码,外协仓,成品仓,电子仓 from(select 物料编码,(select sum(数量) from{出入库表} b where a.物料编码=b.物料编码 and b.入库仓='外协仓') -(select sum(数量) from{出入库表} b where a.物料编码=b.物料编码 and b.出库仓='外协仓') as 外协仓,(select sum(数量) from{出入库表} b where a.物料编码=b.物料编码 and b.入库仓='成品仓') -(select sum(数量) from{出入库表} b where a.物料编码=b.物料编码 and b.出库仓='成品仓') as 成品仓,(select sum(数量) from{出入库表} b where a.物料编码=b.物料编码 and b.入库仓='电子仓') -(select sum(数量) from{出入库表} b where a.物料编码=b.物料编码 and b.出库仓='电子仓仓') as 电子仓 from{物料信息表} a) as b"

平板上打的可能有标点错误思路是这样的最好上个例子

以下是引用rjh4078在2014-11-14 21:02:00的发言：

用sql语句吧

先建个查询窗口加个表控件然后把下面代码生成的数据表绑定过去或者直接fill

dim cmd as new sqlcommand

cmd.数据源名称=

平板上打的可能有标点错误思路是这样的最好上个例子

谢谢，要先领会一下，

主题：[求助]SQLCompute代码优化