以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帐页问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49396)
--  作者：实话实说
--  发布时间：2014/4/17 12:27:00
--  帐页问题
按[汇总]按钮得到了我想要的结果（如图）但提示代码出错，查了半天不知错在哪

【汇总】按钮代码
Dim t As Table = Tables("材料帐页")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "汇总"
\'g.Upto = True
g.TotalOn = "入仓_数量,出仓_数量"
g.Caption = "{0}月合计"
t.SubtotalGroups.Add(g)
t.Sort = "日期"
t.Subtotal(True)

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
        s1 = r("汇总").Split(" ")(0) & " " & r("汇总").Split(" ")(1)
        r("材料") = 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
--  作者：实话实说
--  发布时间：2014/4/17 12:29:00
--  
图为什么上传不了
--  作者：实话实说
--  发布时间：2014/4/17 12:33:00
--  
1
图片点击可在新窗口打开查看此主题相关图片如下：snap4.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：snap3.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2014/4/17 14:18:00
--  

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

 

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

 
--  作者：实话实说
--  发布时间：2014/4/17 17:34:00
--  
仔细检查了，还是不知道错在什么地方，奇怪的是代码运行后得到了想要的结果，就是有错误提示，纠结。
--  作者：有点甜
--  发布时间：2014/4/17 17:45:00
--  
以下是引用实话实说在2014-4-17 17:34:00的发言：
仔细检查了，还是不知道错在什么地方，奇怪的是代码运行后得到了想要的结果，就是有错误提示，纠结。

 

用msgbox定位一下错误的位置先。参考4楼。
--  作者：737182811
--  发布时间：2014/4/17 17:53:00
--  
错误事件很清楚啊，看click代码中去定位一下。
--  作者：实话实说
--  发布时间：2014/4/17 18:45:00
--  
这句有问题
s1 = r("汇总").Split(" ")(0) & " " & r("汇总").Split(" ")(1)

但不知道何错之有。汇总 = [材料名称] + \' \' + [型号规格] + \' \' + [月]
 
[此贴子已经被作者于2014-4-17 19:02:49编辑过]
--  作者：有点甜
--  发布时间：2014/4/17 19:06:00
--  
以下是引用实话实说在2014-4-17 18:45:00的发言：
这句有问题
s1 = r("汇总").Split(" ")(0) & " " & r("汇总").Split(" ")(1)

但不知道何错之有。
[此贴子已经被作者于2014-4-17 19:01:33编辑过]

 

你msgbox看一下r("汇总")看一下就行了
--  作者：实话实说
--  发布时间：2014/4/17 20:35:00
--  
还是没搞定，后面代码不执行
 r("材料") = 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