Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帐页问题


  共有4002人关注过本帖树形打印复制链接

主题：帐页问题
帅哥哟，离线，有人找我吗？
实话实说
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		帐页问题  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2014/4/17 12:29:00 [只看该作者]

图为什么上传不了

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2014/4/17 12:33:00 [只看该作者]

1
图片点击可在新窗口打开查看此主题相关图片如下：snap4.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：snap3.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/17 14:18:00 [只看该作者]

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

 

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2014/4/17 17:34:00 [只看该作者]

仔细检查了，还是不知道错在什么地方，奇怪的是代码运行后得到了想要的结果，就是有错误提示，纠结。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/4/17 17:45:00 [只看该作者]

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

 

用msgbox定位一下错误的位置先。参考4楼。
 回到顶部
帅哥哟，离线，有人找我吗？
737182811
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：246 积分：1775 威望：0 精华：0 注册：2013/12/22 14:54:00 		  发帖心情 Post By：2014/4/17 17:53:00 [只看该作者]

错误事件很清楚啊，看click代码中去定位一下。

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2014/4/17 18:45:00 [只看该作者]

这句有问题
s1 = r("汇总").Split(" ")(0) & " " & r("汇总").Split(" ")(1)

但不知道何错之有。汇总 = [材料名称] + ' ' + [型号规格] + ' ' + [月]
 
[此贴子已经被作者于2014-4-17 19:02:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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("汇总")看一下就行了
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：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
 回到顶部
总数 24 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询