麻烦老是看下这个代码是属于哪里出的问题一直报这一个错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataTables("材料统计表").DataRows.Clear

Tables("材料统计表").StopRedraw

Dim cls As List(of String()) = DataTables("formson_4034").GetValues("field0013|field0014|field0016")

For Each cl As String() In cls

Dim cs As Integer = DataTables("formson_4034").Compute("count(id)","field0013 = '" & cl(0) & "'And field0014 = '" & cl(1) & "'")

Dim hj As Integer = DataTables("formson_4034").Compute("sum(field0023)","field0013 = '" & cl(0) & "'and field0014 = '" & cl(1) & "'")

Dim avg As Integer = DataTables("formson_4034").Compute("avg(field0023)","field0013 = '" & cl(0) & "'and field0014 = '" & cl(1) & "'")

Dim max As Integer = DataTables("formson_4034").Compute("max(field0023)","field0013 = '" & cl(0) & "'and field0014 = '" & cl(1) & "'")

Dim min As Integer = DataTables("formson_4034").Compute("min(field0023)","field0013 = '" & cl(0) & "'and field0014 = '" & cl(1) & "'")

Dim dr As DataRow = DataTables("材料统计表").AddNew()

dr("材料名称") = cl(0)

dr("规格型号") = cl(1)

dr("采购次数") = cs

dr("数量合计") = hj

dr("平均价格") = avg

dr("最高价格") = max

dr("最低价格") = min

Dim pr As DataRow = DataTables("ctp_enum_item").find("id = " & cl(2))

If pr IsNot Nothing Then

dr("单位") = pr("SHOWVALUE")

End If

Tables("材料统计表").ResumeRedraw

MainTable = Tables("材料统计表")

MessageBox.show("数据输入完毕")

主题：麻烦老是看下这个代码是属于哪里出的问题一直报这一个错