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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表公式

共有8275人关注过本帖树形打印复制链接主题：报表公式

狐狸爸爸

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

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/2 8:54:00 [显示全部帖子]

rx.Text = "产品数目: " & Rows.Count

改为：

rx.Text = "产品数目: " & DataTables("产品").Compute("Sum(库存)", "关联列 = '" & tbl.Rows(i)("关联列") & "'")

或者：

Dim sum As integer = 0

For Each sr as row in rows

sum = sum + sr("库存")

rx.Text = "产品数目: " & sum

狐狸爸爸

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

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/3 9:04:00 [显示全部帖子]

Dim sum As integer = 0

For Each sr as row in rows

if r("逻辑列") = True Then

sum = sum + sr("库存")

End if

rx.Text = "产品数目: " & sum

主题：报表公式