帮忙看下这个固定格式统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮忙看下这个固定格式统计

共有10716人关注过本帖树形打印复制链接主题：帮忙看下这个固定格式统计

狐友

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

加好友

发短信

等级：幼狐帖子：110 积分：1367 威望：0 精华：0 注册：2008/9/1 12:35:00

帮忙看下这个固定格式统计 发帖心情

Post By：2011/11/13 10:56:00 [只看该作者]

想请教下

1是代码出错不能统计

2是按分类小计的代码该如何写呢

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("仓库")
If e.DataCol.Name = "产品名称" And dr.IsNull("产品名称") = False Then
dr("状态_y") = dt.Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "'" And "[状态] = '" & dr("状态_y") & "=y""'")
dr("状态_n") = dt.Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "'"And "[状态] = '" & dr("状态_n") & "=n""'")
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

狐狸爸爸

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

加好友

发短信

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

Post By：2011/11/13 11:34:00 [只看该作者]

正确的：

Select Case e.DataCol.name
    Case "产品名称"
        Dim dr As DataRow = e.DataRow
        Dim dt As DataTable =DataTables("仓库")
        If dr.IsNull("产品名称") = False Then
            dr("状态_y") = dt.Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "' And [状态] = 'y'")
            dr("状态_n") = dt.Compute("sum(数量)","[产品名称] = '" & dr("产品名称") & "' And [状态] = 'n'")
        End If
End Select

如果要分类小计，统计表也得加上分类列。

下一主题 >> << 上一主题

主题：帮忙看下这个固定格式统计