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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有3173人关注过本帖树形打印复制链接主题：[求助]

菜菜A

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

加好友

发短信

等级：婴狐帖子：44 积分：390 威望：0 精华：0 注册：2014/11/17 15:14:00

Post By：2014/11/18 12:46:00 [只看该作者]

谢谢版主

菜菜A

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

加好友

发短信

等级：婴狐帖子：44 积分：390 威望：0 精华：0 注册：2014/11/17 15:14:00

Post By：2014/11/18 14:14:00 [只看该作者]

If e.DataCol.Name = "入库_数量" AndAlso e.DataRow.IsNull("入库_金额") = False OrElse e.DataCol.Name = "入库_金额" Then

Dim filter As String = "货物名称 = '" & e.DataRow("货物名称") & "' and 入库日期 <= #" & e.DataRow("入库日期") & "#"

systemready = False

Dim dj As Double = e.DataTable.Compute("sum(入库_金额)", filter) / e.DataTable.Compute("sum(入库_数量)", filter)

e.DataTable.ReplaceFor("单价", dj, filter)

systemready = True

Else If e.DataCol.Name = "单价" OrElse e.DataCol.Name = "入库_数量" Then

systemready = False

e.DataRow("单价") = e.DataRow("入库_金额")/ e.DataRow("入库_数量")

systemready = True

End If

代码我改成这样了

现在我希望只对筛选出的日期段数据进行自动计算，其它情况按金额/数量输入单价即可

怎么改？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/18 14:29:00 [只看该作者]

If e.DataCol.Name = "入库_数量" AndAlso e.DataRow.IsNull("入库_金额") = False OrElse e.DataCol.Name = "入库_金额" Then
    If Tables(e.DataTable.Name).Filter > "" Then
        Dim filter As String = "货物名称 = '" & e.DataRow("货物名称") & "' and 入库日期 <= #" & e.DataRow("入库日期") & "#"
        filter &= " and " & Tables(e.DataTable.Name).Filter > ""
        systemready = False
        Dim dj As Double = e.DataTable.Compute("sum(入库_金额)", filter) / e.DataTable.Compute("sum(入库_数量)", filter)
        e.DataTable.ReplaceFor("单价", dj, filter)
        systemready = True
    Else
        systemready = False
        e.DataRow("单价") = e.DataRow("入库_金额")/ e.DataRow("入库_数量")
        systemready = True
    End If
End If

菜菜A

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

加好友

发短信

等级：婴狐帖子：44 积分：390 威望：0 精华：0 注册：2014/11/17 15:14:00

Post By：2014/11/18 14:55:00 [只看该作者]

不行运行不了求指点

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/18 14:58:00 [只看该作者]

If e.DataCol.Name = "入库_数量" AndAlso e.DataRow.IsNull("入库_金额") = False OrElse e.DataCol.Name = "入库_金额" Then
    If Tables(e.DataTable.Name).Filter > "" Then
        Dim filter As String = "货物名称 = '" & e.DataRow("货物名称") & "' and 入库日期 <= #" & e.DataRow("入库日期") & "#"
        filter &= " and " & Tables(e.DataTable.Name).Filter
        systemready = False
        Dim dj As Double = e.DataTable.Compute("sum(入库_金额)", filter) / e.DataTable.Compute("sum(入库_数量)", filter)
        e.DataTable.ReplaceFor("单价", dj, filter)
        systemready = True
    Else
        systemready = False
        e.DataRow("单价") = e.DataRow("入库_金额")/ e.DataRow("入库_数量")
        systemready = True
    End If
End If