汇总表压铸列公式如何设才能根据在损耗率计算窗口录入日期后 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 汇总表压铸列公式如何设才能根据在损耗率计算窗口录入日期后

共有1683人关注过本帖树形打印复制链接主题：汇总表压铸列公式如何设才能根据在损耗率计算窗口录入日期后

zhuxin

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

加好友

发短信

等级：幼狐帖子：54 积分：497 威望：0 精华：0 注册：2016/7/4 8:43:00

汇总表压铸列公式如何设才能根据在损耗率计算窗口录入日期后 发帖心情

Post By：2016/11/2 17:30:00 [只看该作者]

汇总表压铸列代码如何设才能根据在损耗率计算窗口的日期进行计算，

If e.DataCol.Name = "产品名称" Then
    Dim dr As DataRow = e.DataRow
    Dim dt As DataTable = DataTables("周转卡明细")
    dr("压铸") = dt.Compute("Sum(压铸良品数)","[产品名称] = '" & dr("产品名称") & "'")
End If

在dr("压铸") = dt.Compute("Sum(压铸良品数)","[产品名称] = '" & dr("产品名称") & "'")加多两个日期时间条件老是出错

[此贴子已经被作者于2016/11/3 13:47:50编辑过]

zhuxin

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

加好友

发短信

等级：幼狐帖子：54 积分：497 威望：0 精华：0 注册：2016/7/4 8:43:00

Post By：2016/11/2 17:36:00 [只看该作者]

我是想整个汇总表都能根据损耗率计算窗口的日期计算

有点蓝

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

加好友

发短信

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

Post By：2016/11/2 17:44:00 [只看该作者]

If e.DataCol.Name = "产品名称" Then

Dim dr As DataRow = e.DataRow

Dim dt As DataTable = DataTables("周转卡明细")

Dim frm As WinForm.Form = Forms("损耗率计算")

If frm.Opened Then

Dim d1 = frm.Controls("DateTimePicker1").value

Dim d2 = frm.Controls("DateTimePicker2").value

If d1 IsNot Nothing And d2 IsNot Nothing

dr("压铸") = dt.Compute("Sum(压铸良品数)","[产品名称] = '" & dr("产品名称") & "' and 日期 >= '" & d1 & "' and 日期 <= '" & d2 & "' ")

End If

Else

dr("压铸") = dt.Compute("Sum(压铸良品数)","[产品名称] = '" & dr("产品名称") & "'")

End If

zhuxin

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

加好友

发短信

等级：幼狐帖子：54 积分：497 威望：0 精华：0 注册：2016/7/4 8:43:00

Post By：2016/11/3 14:50:00 [只看该作者]

多谢版主

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

主题：汇总表压铸列公式如何设才能根据在损耗率计算窗口录入日期后