主题：合计行

请教一下，如何实现
此主题相关图片如下：1.bmp

根据单据编号和物料代码，求总数，并先表中最后一行显示总数，效果如图

先获取不重复的单据编号和物料代码，然后循环统计，赋值到主键最大的行中

 用流水账吧。

 

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

再请教一下，只在每个物料的最后一行显示总数其他的为空，该怎么实现

为什么r（“数量”）值就是一个字符串“数量”

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

 

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