- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态时间获取 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138451)
-- 发布时间：2019/7/31 14:54:00
-- 动态时间获取
根据客户获取第一和最后一次时间并填入对应的列里
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态时间获取.foxdb |
-- 发布时间：2019/7/31 15:06:00
--
方法1，使用find按时间排序查询
Find(Filter,Sort,Index)
Filter: 条件表达式，请参考表达式的运算符和函数 和 条件表达式。
Sort: 可选参数，指定排序方式。
Index: 可选参数，指定返回第几个符合条件的行，0表示第一行。
Filter: 条件表达式，请参考表达式的运算符和函数 和 条件表达式。
Sort: 可选参数，指定排序方式。
Index: 可选参数，指定返回第几个符合条件的行，0表示第一行。
DataTables("产品").Find("产品编号 = \'03\'" ,"日期") ‘第一’
DataTables("产品").Find("产品编号 = \'03\'" ,"日期 desc") ‘最后一次
方法2、使用Compute
DataTables("订单").Compute("min(日期)", "产品 = \'PD01\'")‘第一’
DataTables("订单").Compute("max(日期)", "产品 = \'PD01\'")‘最后一次
-- 发布时间：2019/8/6 17:02:00
--
这个还是没有弄明白 可以实例教学吗
-- 发布时间：2019/8/6 17:18:00
--
datacolchanged事件
If e.DataCol.Name = "客户" Then
e.DataRow("订单时间_开始时间") = DataTables("订单明细").Compute("min(日期)", "产品 = \'" & e.NewValue & "\'")\'第一\'
e.DataRow("订单时间_最近时间") = DataTables("订单明细").Compute("max(日期)", "产品 = \'" & e.NewValue & "\'")\'第一\'
End If
-- 发布时间：2019/8/6 18:30:00
--
If e.DataCol.Name = "客户" Then
e.DataRow("订单时间_开始时间") = DataTables("订单明细").Compute("min(日期)", "产品 = \'" & e.NewValue & "\'")\'第一\'
e.DataRow("订单时间_最近时间") = DataTables("订单明细").Compute("max(日期)", "产品 = \'" & e.NewValue & "\'")\'第一\'
订单明细有一个更新人的列 我也想同步过来 如何让获取
e.DataRow("订单时间_最近更新人")= DataTables("订单明细").
End If
-- 发布时间：2019/8/6 20:24:00
--
根据上面获取的最近时间去订单明细里使用find查询这个时间的记录即可
-- 发布时间：2019/8/10 20:54:00
--
输入客户数据没有变化
此主题相关图片如下：企业微信截图_20190810205158.png
-- 发布时间：2019/8/11 21:22:00
--
什么事件写了什么代码？能不能自觉把这些东西给出来呢，每次都要等我们问？还是认为我们有千里眼可以看穿您的项目
-- 发布时间：2019/9/17 23:44:00
--
If e.DataCol.Name = "雇员" Then
e.DataRow("订单时间_开始时间") = DataTables("订单明细").Compute("min(日期)", "产品 = \'" & e.NewValue & "\'") 想找出雇员 的 客户 第一次下单日期
e.DataRow("订单时间_最近时间") = DataTables("订单明细").Compute("max(日期)", "产品 = \'" & e.NewValue & "\'")\'想找出雇员 的 客户 最后一次下单日期
e.DataRow("数量") = DataTables("订单明细").Compute("Sum(数量)","[雇员] = \'" & e.NewValue & "\'") 想统计雇员 的 客户 金额
End If
此主题相关图片如下：360截图20190917235906894.jpg
[此贴子已经被作者于2019/9/18 0:01:12编辑过]
-- 发布时间：2019/9/18 8:43:00
--
“产品” 改为 “雇员”即可