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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助。。。根据条件求和

共有21833人关注过本帖树形打印复制链接主题：求助。。。根据条件求和

卟离卟弃

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

加好友

发短信

等级：五尾狐帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00

求助。。。根据条件求和 发帖心情

Post By：2009/5/21 10:32:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自动求和.table

在表A中根据［计算类别］列与［物品编号］列自动求和。

计算类别列中内容是自动求和的行，就根据代码自动求和，其它的就用人工输入。。都要根据物品编号进行求和。。
Dim dt1 As DataTable
Dim a As String ="自动求和"
dt1 = DataTables("表B")
Dim dr As DataRow = e.DataRow
if e.DataCol.Name = "物品编号" OrElse e.DataCol.Name = "计算类别" Then
    if dr.IsNull("物品编号")= False AndAlso dr.IsNull("计算类别") = false Then
      if dr.("计算类别")= a then
      dr("求和数量") = dt1.Compute("Sum(发出数量)","[物品编号] = '" & dr("物品编号") & "'")
      end if
    End if
End If