求助：某列改变后，期待能够执行该列值进行对比查找数据。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：某列改变后，期待能够执行该列值进行对比查找数据。

共有3916人关注过本帖树形打印复制链接主题：求助：某列改变后，期待能够执行该列值进行对比查找数据。

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

求助：某列改变后，期待能够执行该列值进行对比查找数据。 发帖心情

Post By：2014/7/13 22:26:00 [只看该作者]

求助：某列改变后，期待能够执行该列值进行对比查找数据。

纠正如下代码当年月日列发生变动后下面的数据全部对应为当前年月日值下面的数据

Select Case e.DataCol.Name

Case "年月日"

e.DataRow("应收")= Format(DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & Date.Today & " 00:00:00# and 消费时间<= #" & Date.Today & " 23:59:59#"),"f")

e.DataRow("人数")= DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & Date.Today & " 00:00:00# and 就餐时间<= #" & Date.Today & " 23:59:59#")

e.DataRow("实收")= Format(DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00# and 结账时间<= #" & Date.Today & " 23:59:59#"),"f")

End Select

有点甜

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

加好友

发短信

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

Post By：2014/7/13 22:29:00 [只看该作者]

你的年月日列是什么东西？

参考 http://www.foxtable.com/help/topics/2720.htm

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）你的年月日列是什么东西？&n... 发帖心情

Post By：2014/7/13 22:30:00 [只看该作者]

有点甜老师

年月日为时期列当这个日期选择某天时候下面的这些代码对应为当前年月日列的值下面的时间段进行筛选数据

Select Case e.DataCol.Name

Case "年月日"

e.DataRow("应收")= Format(DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & Date.Today & " 00:00:00# and 消费时间<= #" & Date.Today & " 23:59:59#"),"f")

e.DataRow("人数")= DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & Date.Today & " 00:00:00# and 就餐时间<= #" & Date.Today & " 23:59:59#")

e.DataRow("实收")= Format(DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & Date.Today & " 00:00:00# and 结账时间<= #" & Date.Today & " 23:59:59#"),"f")

End Select

有点甜

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

加好友

发短信

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

Post By：2014/7/13 22:34:00 [只看该作者]

Select Case e.DataCol.Name
    Case "年月日"
        If e.DataRow.Isnull("年月日") Then
            e.DataRow("应收")= Nothing
            e.DataRow("人数")= Nothing
            e.DataRow("实收")= Nothing
        Else
            Dim d As Date = e.NewValue
            e.DataRow("应收")= Format(DataTables("消费明细").Compute("sum(累计消费)","消费时间 >= #" & d & "# and 消费时间< #" & d.AddDays(1) & "#"),"f")
            e.DataRow("人数")= DataTables("消费信息").Compute("sum(就餐人数)","就餐时间 >= #" & d & "# and 就餐时间< #" & d.AddDays(1) & "#")
            e.DataRow("实收")= Format(DataTables("结账登记").Compute("sum(消费金额)","结账时间 >= #" & d & "# and 结账时间<= #" & d.AddDays(1) & "#"),"f")
        End If
End Select

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）Select Case e.DataCol.Name &n... 发帖心情

Post By：2014/7/13 22:39:00 [只看该作者]

谢谢有点甜老师又学习到一小知识

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

主题：求助：某列改变后，期待能够执行该列值进行对比查找数据。