主题：合计行

 用流水账吧。

http://www.foxtable.com/webhelp/scr/1572.htm

生成后，写代码

Dim t As Table = Tables("查询表")
For Each dr As Row In t.Rows  
    Dim Val1 As Double = 0
    For i As Integer = 0 To dr.Index
        If t.Rows(i)("物料代码") = dr("物料代码") AndAlso t.Rows(i)("单据编号") = dr("单据编号") Then
            val1 += t.rows(i)("数量")
        End If
    Next
    dr("总数") = Val1
Next

 你执行了什么代码？8楼代码没问题。

 有问题，单独做一个项目发上来看看。