分类汇总自定义合计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分类汇总自定义合计

共有2922人关注过本帖树形打印复制链接主题：分类汇总自定义合计

hopestarxia

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：927 积分：6676 威望：0 精华：0 注册：2013/8/10 18:33:00

分类汇总自定义合计 发帖心情

Post By：2021/6/23 18:18:00 [只看该作者]

老师，我想使用以语句实现窗口Table1插件下方加入汇总行，并在汇总行的的含税价的列实现数据等于明细行的数量 * 含税价（因特殊原因明细行不要金额列，合计行要在含税价下得出金额汇总）,

按理解写的代码如下，请问为什么得不出数据。

Dim t1 As Table = e.form.Controls("Table1").Table

Dim Val1 As String = t1.Compute("Sum(round(isnull(数量,0) * isnull(含税价,0),2))" )

Dim t As Table = Tables("出库查看_Table1")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

g = New Subtotalgroup

g.GroupOn = "*"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

r = t.Rows(i,True)

If r.IsGroup Then

r("含税价) = Val1

End If

hopestarxia

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：927 积分：6676 威望：0 精华：0 注册：2013/8/10 18:33:00

Post By：2021/6/23 21:21:00 [只看该作者]

老师，受累看看我的问题！

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/24 8:49:00 [只看该作者]

access还是SqlServer？

Dim Val1 As String = t1.sqlCompute("Sum(round(isnull(数量,0) * isnull(含税价,0),2))" )

hopestarxia

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：927 积分：6676 威望：0 精华：0 注册：2013/8/10 18:33:00

Post By：2021/6/27 17:15:00 [只看该作者]

老师，SQL数据库的，不知道怎么代码就是不管用，如果只是 = t1.Compute("Sum(数量)“）这样就管用，后面我实在是怎么测试写都不行（只要有加减乘除，不是单独的就不行），就在数据库表中加了几个表达式进去，然后那里取表达式的结果解决的。但是不知道为什么那样的代码不行，按理说应该代码上没什么问题的看着。