主题：帐页问题

 看代码不应该是这里错吧？你先调试一下

http://www.foxtable.com/help/topics/1485.htm

用msgbox定位一下错误的位置先。参考4楼。

你msgbox看一下r("汇总")看一下就行了

 呃，楼主，你应该分析得出来才对吧？

 msgbox(r("汇总") & r("汇总").count) 执行一下，截个图发上来看看。

msgbox(r("汇总") & r("汇总").count)

 这句代码是放在之前的出错代码前面执行的吗？

呵呵，写错了，不好意思。没有发现，这样写

msgbox(r("汇总") & r("汇总").split(" ").count)

 好纠结啊，应该是很简单的一个问题。弹出数据应该没问题才对的。

 做个例子上传来看吧，再这样折腾下去也没有结果。

 看了一下，下面的代码改成这样，一个小问题

Dim r As Row
Static s As String
Dim s1 As String
Dim n As Double
For i As Integer = 0 To Tables("材料帐页").Rows.Count(True) - 1

    r = Tables("材料帐页").Rows(i,True)
    If r.IsGroup  Then
        s1 = r("材料")
        If s = "" OrElse s1 <> s Then
            n = r("入仓_数量") - R("出仓_数量")
            r("库存_数量") = n
        Else
            n + = r("入仓_数量") - R("出仓_数量")
            r("库存_数量") = n
        End If
        s = s1
    End If
Next

 哦，那就这样改一下。

Dim r As Row
Static s As String
Dim s1 As String
Dim n As Double
For i As Integer = 0 To Tables("材料帐页").Rows.Count(True) - 1

    r = Tables("材料帐页").Rows(i,True)
    If r.IsGroup  Then
        s1 = r("材料").split(" ")(0)
        If s = "" OrElse s1 <> s Then
            n = r("入仓_数量") - R("出仓_数量")
            r("库存_数量") = n
        Else
            n + = r("入仓_数量") - R("出仓_数量")
            r("库存_数量") = n
        End If
        s = s1
    End If
Next