Foxtable(狐表)用户栏目专家坐堂 → [求助]运算符后缺少操作数


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

主题:[求助]运算符后缺少操作数

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


加好友 发短信
等级:六尾狐 帖子:1332 积分:10319 威望:0 精华:0 注册:2013/11/8 15:27:00
[求助]运算符后缺少操作数  发帖心情 Post By:2020/1/9 13:46:00 [显示全部帖子]

Dim b1 As New SQLGroupTableBuilder("统计表1","统计表")
 b1.Groups.AddDef("部门名称")
 b1.Groups.AddDef("年份")
 b1.Groups.AddDef("月份")
 b1.Totals.AddDef("保底")
 b1.Totals.AddDef("实际")
b1.build


DataTables("统计表1").dataCols.add("月度差距", Gettype(Double))
DataTables("统计表1").dataCols.add("累计差距", Gettype(Double))

Dim t1 As Table = Tables("统计表1") 

For Each r1 As Row In t1.Rows
        r1("月度差距") =r1("实际")-r1("保底")
Next

Dim bjs As List(Of String) = DataTables("统计表1").GetValues("部门名称")
For Each bj As String In bjs
    Dim drs As List(Of DataRow) = DataTables("统计表1").Select("[部门名称] = " & bj)
    For n As Integer = 0 To drs.Count - 1 
        If n > 0 Then 
            drs(n)("累计差距") = drs(n-1)("月度差距")+drs(n)("月度差距")
        End If
    Next
Next

语法错误:“**部门”运算符后缺少操作数。

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


加好友 发短信
等级:六尾狐 帖子:1332 积分:10319 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2020/1/9 14:18:00 [显示全部帖子]

数据源有指定了,上面省略掉了,我再看看

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


加好友 发短信
等级:六尾狐 帖子:1332 积分:10319 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2020/1/9 15:15:00 [显示全部帖子]

Dim b1 As New SQLGroupTableBuilder("统计表1","统计表")
b1.ConnectionName = "Sale"
 b1.Groups.AddDef("部门名称")
 b1.Groups.AddDef("年份")
 b1.Groups.AddDef("月份")
 b1.Totals.AddDef("保底")
b1.Totals.AddDef("保底期")
 b1.Totals.AddDef("实际")
b1.build

DataTables("统计表1").dataCols.add("月度差距", Gettype(Double))
DataTables("统计表1").dataCols.add("累计差距", Gettype(Double))

Dim t1 As Table = Tables("统计表1") 

For Each r1 As Row In t1.Rows
        r1("月度差距") =r1("实际")-r1("保底")
Next

Dim bjs As List(Of String) = DataTables("统计表1").GetValues("部门名称|保底期")
For Each bj As String In bjs
    Dim drs As List(Of DataRow) = DataTables("统计表1").Select("部门名称 = '" & bj(0) & "' and 保底期 = '" & bj(1) & "'")
    For n As Integer = 0 To drs.Count - 1 
        If n > 0 Then 
            drs(n)("累计差距") = drs(n-1)("月度差距")+drs(n)("月度差距")
        End If
    Next
Next

改成这样,出现以下错误,看不懂
无法将类型为“System.Collections.Generic.List`1[System.String[]]”的对象强制转换为类型“System.Collections.Generic.List`1[System.String]”。
[此贴子已经被作者于2020/1/9 15:15:58编辑过]

 回到顶部