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


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

主题：帐页问题
帅哥哟，离线，有人找我吗？
实话实说
 小大  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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2014/4/17 20:49:00 [显示全部帖子]

以下是引用有点甜在2014-4-17 20:41:00的发言：

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

 

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


只有出错提示，上面代码不返回信息

[此贴子已经被作者于2014-4-17 20:41:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2014/4/17 21:37:00 [显示全部帖子]

以下是引用有点甜在2014-4-17 21:03:00的发言：

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

 

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


前后都试过

 

 

[此贴子已经被作者于2014-4-17 21:03:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2014/4/17 21:59:00 [显示全部帖子]

以下是引用有点甜在2014-4-17 21:44:00的发言：

呵呵，写错了，不好意思。没有发现，这样写图片点击可在新窗口打开查看

 

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



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


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2014/4/17 22:19:00 [显示全部帖子]

有点甜辛苦了，我打包一下，看方不方便上传。

 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 5 次数据查询