Foxtable(狐表)用户栏目专家坐堂 → [求助]统计表新增列,赋值时列类型报错


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

主题:[求助]统计表新增列,赋值时列类型报错

帅哥哟,离线,有人找我吗?
天一生水
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1137 积分:11224 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]统计表新增列,赋值时列类型报错  发帖心情 Post By:2022/9/6 20:49:00 [只看该作者]

老师好!
下列代码运行报错如下图,是什么原因?
...
    Dim b As New CrossTableBuilder("统计表1", DataTables("月度量化积分考核"))
    b.HGroups.AddDef("姓名") '添加水平分组
    b.VGroups.AddDef("月度") '添加垂直分组    
    b.Totals.AddDef("总分")
    b.Filter = "年度 = '" & e.Form.Controls("ComboBox1").Value & "' And 季度 = '" & e.Form.Controls("ComboBox2").Value & "'" 
    Tables("季度积分考核公示_Table1").DataSource = b.BuildDataSource()
    
    '新增列
    Tables("季度积分考核公示_Table1").DataTable.DataCols.Add("总分", GetType(Double))
    Tables("季度积分考核公示_Table1").DataTable.DataCols.Add("平均分", GetType(Double))
    
    '赋值
    For Each r As Row In Tables("季度积分考核公示_Table1").Rows
        If Tables("季度积分考核公示_Table1").Cols.Count = 3 Then '无月份数据列
            r("总分") = 0 
        ElseIf Tables("季度积分考核公示_Table1").Cols.Count = 4 Then '有1个月份数据列
            r("总分") = ("总分_1")
        ElseIf Tables("季度积分考核公示_Table1").Cols.Count = 5 Then '有2个月份数据列
            r("总分") = ("总分_1") + r("总分_2") 
        ElseIf Tables("季度积分考核公示_Table1").Cols.Count = 6 Then '有3个月份数据列
            r("总分") = ("总分_1") + r("总分_2") + r("总分_3")
        End If
        r("平均分") = r("总分") / 3 
    Next 
...

图片点击可在新窗口打开查看此主题相关图片如下:截屏图片.jpg
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计测试.foxdb



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


加好友 发短信
等级:超级版主 帖子:106601 积分:542176 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/9/6 21:10:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计测试.zip


 回到顶部
帅哥哟,离线,有人找我吗?
天一生水
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1137 积分:11224 威望:0 精华:0 注册:2017/9/26 16:30:00
  发帖心情 Post By:2022/9/6 21:22:00 [只看该作者]

谢谢蓝老师!

 回到顶部