Foxtable(狐表)用户栏目专家坐堂 → 传入的表格格式数据流(TDS)远程过程调用(RPC)协议流不正确


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

主题:传入的表格格式数据流(TDS)远程过程调用(RPC)协议流不正确

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/6 12:05:00 [显示全部帖子]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/6 13:33:00 [显示全部帖子]

这50个人员都是哪个表哪个列的数据,就遍历这50个人就行了,看上面代码嵌套了n多层的for循环代码

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/6 14:09:00 [显示全部帖子]

没看懂这个业务逻辑。既然只有50个,就遍历这50个,遍历96个是干嘛用的

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/6 14:55:00 [显示全部帖子]

说明没有符号条件的数据
msgbox("测评对象 = '"& Product &"' and 操作人员='"& Product12 &"'")
cnt = dt.Compute("Count([好])", "测评对象 = '"& Product &"' and 操作人员='"& Product12 &"'")    '如果操作人员属于委领导,则将对应的好等次的数据 计算为A好里面的
msgbox(cnt)
        If cnt>0 Then
            dr("A好")=cnt
            output.show("A好" & cnt)
            output.show(dr("A好"))

        Else
            dr("A好")=Nothing
        End If

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/6 15:08:00 [显示全部帖子]

应该还是遍历的问题。不管Products12有多少个,其实只有最后有一个有效,因为写的都是同一个单元格

For Each Product12 As String In Products12

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/6 15:36:00 [显示全部帖子]

考虑根据测评对象、所属部门,对好 较好  一般   较差进行分组统计,然后把统计表数据填充到{干部平时考核民主测评汇总表}

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/9 10:24:00 [显示全部帖子]

在Totals集合中添加一个统计列的语法如下: 

Totals.AddDef(Name)
Totals.AddDef(Name, NewName)
Totals.AddDef(Name, NewName, NewCaption)
Totals.AddDef(Name, Aggregate)
Totals.AddDef(Name, Aggregate, NewName)
Totals.AddDef(Name, Aggregate, NewName, NewCaption)

参数说明 

Name:        字符型,指定统计列。
NewName:     字符型,用于给统计列指定一个新的名称,这个名称在统计表中显示。
NewCaption:  字符型,用于给统计列设置标题。
Aggregate:  AggregateEnum枚举型,用于指定统计类型,默认是求和。

AggregateEnum型枚举的可选值:

Average:平均值
Count:  记录数
Max:    最大值
Min:    最小值
Sum:    累积值


示例五,统计不同客户在1999年各季度下的订单数,以及总的订购数量

复制以下代码至命令窗口: 

Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Filter = 
"[日期] >= #1/1/1999# And [日期]<= #12/31/1999#"
b.Groups.AddDef(
"客户")'添加客户列用于分组
'添加日期列用于分组,按季度分组,并用"季度"代替原名称

b.Groups.AddDef(
"日期",DateGroupEnum.Quarter,"季度")
'添加客户列用于统计,其实对于Count类型的统计,可用任何列作为统计列。

b.Totals.AddDef(
"客户",AggregateEnum.Count,"订单数")
b.Totals.AddDef(
"数量","订购数量"'添加数量列用于统计
b.Build '生成统计表
MainTable = Tables("统计表1"'打开生成的统计表


 回到顶部