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

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

If Tables("订单表并列_Table1").Rows.Count = 0 Then

Tables("订单表并列_Table2").Fill("S elect * From {工序库明细主表} Where [_Identify] Is Null","s" ,False)

Tables("订单表并列_Table2").SetColVisibleWidth("物料编码|60|部件名称|60|部件规格|80|部件量|55|编码|70")

Tables("订单表并列_Table2").Cols.Remove("物料编码")

Tables("订单表并列_Table2").Cols.Remove("编码")

Else

Dim tbl As Table = Tables("订单表并列_Table1")

Dim cur,cur2,cur3 As String

Dim cur1 As Double

cur= tbl.current("产品编码")

cur1= tbl.current("订单数量")

cur2= tbl.current("内部加工单号")

Tables("订单表并列_Table2").Fill("Se lect * From {工序库明细主表} where 物料编码 = '" & cur & "'ORDER BY 部件名称 ","s" ,False)

Tables("订单表并列_Table2").SetColVisibleWidth("物料编码|60|部件名称|60|部件规格|80|部件量|55|编码|70")

Tables("订单表并列_Table2").Cols.Remove("物料编码")

'Tables("订单表并列_Table2").Cols.Remove("编码")

'DataTables("订单表并列_Table2").DataCols.Add("部件总量", Gettype(Double), "[部件量] *" & cur1)

'DataTables("订单表并列_Table2").DataCols.Add("人工量", Gettype(Double))

'For Each dr As DataRow In DataTables("订单表并列_Table2").DataRows

'cmd.CommandText = "S ELECT * From {清单} where 内部加工单号='" & cur2 & "'and 产品编码 ='" & cur & "'and 编码= '" & dr("编码")& "'"

'dt = cmd.ExecuteReader()

'Dim Total As Double = dt.Compute("Sum(人工量)")

'dr("人工量") = Total

'Next

End If

加入红色代码。后台统计符合条件的行人工量的合计。速度非常慢。这里应该如何统计好。

cmd.CommandText = "SELECT * From {清单} where 内部加工单号='" & cur2 & "'and 产品编码 ='" & cur & "'"
dt = cmd.ExecuteReader()
For Each dr As DataRow In DataTables("订单表并列_Table2").DataRows
Dim Total As Double = dt.Compute("Sum(人工量)", "编码= '" & dr("编码")& "'")
dr("人工量") = Total
Next

版主，速度还是很慢。

请教版主。类似这种，后台数据统计的设计思路。

现在我的设计这样，产品分工序库明细主表（指产品可分的部件），工序库明细表（部件可分的组件），对应的工序表以及工序价格

我现在的{清单}是生成的最详细的工序表，包含订单、产品、部件、组件、工序、价格的一个查询表。里边有个单个工序对应订单数量的人工量。

我现在是想实现统计部件项下人工量之和。

后期还要对应的生产产品项下所有部件的人工量之和。

不应该慢。实例发上来看看。

如果需要生成查询表，可以把这几个表连接查询，最后再分组统计。

Tables("订单表并列_Table2").Fill("Se lect 订单号，产品编码,部件名称,部件规格,部件量,部件编码,SUM(人工量) AS 人工量 From {清单} where 产品编码 = '" & cur & "' GROUP BY 订单号，产品编码,部件名称,部件规格,部件量,部件编码 ORDER BY 部件名称 ","s" ,True)

版主我直接改为这样查询，速度有所提高，但感觉延迟还是有的。清单表是一个很多表生产的查询表。订单表订单明细表，物料表，工序库明细主表，工序库明细表，工序表，工序价格。

怎样才能效率更高呢。这样，能得到想要的数据。

如果都从清单这个 sql 视图表中查询，速度不知道怎么样。

根据可以统计人工总量订单号，产品编码产品名称，这样得到的字段就是订单的一个明细表。

根据订单号，产品编码，部件名称，部件规格，部件量统计人工量。其实根据订单号，产品编码，部件编码就能得到数据。但这样，部件名称，部件规格列就不显示

Se lect 订单号，产品编码,部件编码,SUM(人工量) AS 人工量 From {清单} where 产品编码 = '" & cur & "' GROUP BY 订单号，产品编码,部件编码

这里的列多了，是不是影响统计速度。如果统计标准的列少了，如何显示其他想要的列。

我现在清单后台视图的行数才212行。

[此贴子已经被作者于2017/4/2 15:14:28编辑过]

1、你要多少列，那你 GROUP BY 后面，就需要加入多少列。

2、你那个生成清单表的sql语句可能有问题，具体做个例子上来测试下。

版主我是在表的 currentchanged 中设置代码的。

打开开窗口时，时间为0.16-0.4秒。

随后点击行的时候，时间在1.3-1.8秒波动。

另外，数据的位数影响速度吗。我清单表中的人工量保留四位小数。

查询后的数据有的小数位数是十六位的，等于字段长度。但有的不是。

我单独做了个测试窗口，清单表总共 212行数据根据下列办法生产 24行数据，时间2.2-2.4秒

Dim st As Date = Date.Now

'要测试耗时的代码

Tables("测试_Table1").Fill("S elect 产品编码,部件名称,部件规格,部件量,编码,SUM(人工量) AS 人工量 From {清单} GROUP BY 产品编码,部件名称,部件规格,部件量,编码 ORDER BY 部件名称 ","s" ,True)

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

下面这个加载清单全部数据测试需要 0.11-0.13秒

Tables("测试_Table1").Fill("S elect * From {清单} ","s" ,True)

[此贴子已经被作者于2017/4/2 16:18:57编辑过]

1、如果你数据量不多，你可以全部数据加载出来，然后直接用分组统计。

2、Group by 肯定事件会长一些，越复杂的视图越慢。

主题：数据效率问题