主题：如何设计统计代码

建议看看下面的帮助内容，先尝试自己做一下：
 
http://help.foxtable.com/topics/0680.htm

 
http://help.foxtable.com/topics/0681.htm

 
搞不定就可以看看下面的代码，只需做一个按钮，按钮代码为:

Dim fl As New Filler
DataTables("仓库存在统计表").DataRows.Clear()
fl.SourceTable = DataTables("仓库进货明细")
fl.SourceCols = "类别,品名,规格与色号,单位1,单价"
fl.DataTable = DataTables("仓库存在统计表")
fl.DataCols = "类别,品名,规格与色号,单位1,单价"
fl.Fill()

For Each dr As DataRow In DataTables("仓库存在统计表").DataRows
     Dim Filter As String = "类别 = '" & dr("类别") & "' And "
     Filter = Filter & "品名 = '" & dr("品名") & "' And "
     Filter = Filter & "规格与色号 = '" & dr("规格与色号") & "' And "
     Filter = Filter  & "单位1 = '" & dr("单位1") & "' And "
     Filter = Filter & "单价 = " & dr("单价")
     dr("数量") = DataTables("仓库进货明细").Compute("Sum(数量)",Filter) - DataTables("仓库出货明细").Compute("Sum(数量)",Filter)
Next

自己做做吧，3楼给你帮助的地址，也帮你写了统计代码，自己不尝试怎么能进步呢？

不可能总是别人帮你全部做好的。

自己先尝试，搞不定再就具体的问题提问，看了别人的答案后，再看看自己的代码为啥不行，这样才是学习的。

楼主如果还搞不清楚DataCoChanged和MainTableChanged的区别，得好好看看帮助。

瓜熟蒂落，水到渠成，心急吃不得热豆腐。