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

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

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