以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]关于周期范围取值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132208)

--  作者：工匠 --  发布时间：2019/3/16 17:41:00 --  [求助]关于周期范围取值 老师好！       请帮完善一下另外一种取值方式： 1.在表A增加行（自动生成了“加入日期”）编辑"子件编码"，从表B做如下取值已实现 2.在表A增加行（自动生成了“加入日期”）编辑"子件编码"，根据现在的加入日期，以录入的“子件编码”从表B的“产品编码”列找到同值，再从表B“日期”列6个月内或180天内（从表A的加入日期起与表日期6个月内或180天内）取最高/最低/平均单价，请老师帮完善一下，谢谢！ Select Case e.DataCol.Name         Case "子件编码","子件品名","用量"         If e.DataRow.IsNull("子件编码")=False AndAlso e.DataRow.IsNull("子件品名")=False  AndAlso e.DataRow.IsNull("用量")=False  Then         e.DataRow("最高单价") = DataTables("表B").SQLCompute("max(单价)","产品编码=\'" & e.DataRow("子件编码")  & "\'")         e.DataRow("最低单价") = DataTables("表B").SQLCompute("min(单价)","产品编码=\'" & e.DataRow("子件编码")  & "\'")         e.DataRow("平均单价") = DataTables("表B").SQLCompute("avg(单价)","产品编码=\'" & e.DataRow("子件编码")  & "\'")             End If End Select 谢谢！

--  作者：有点蓝 --  发布时间：2019/3/16 17:45:00 --   参考：http://www.foxtable.com/webhelp/scr/2720.htm

--  作者：工匠 --  发布时间：2019/3/16 17:59:00 --   谢谢有点蓝老师，我看了很久帮助，还是不懂如何实现这种需求，请老师帮忙完善一下，谢谢！ [此贴子已经被作者于2019/3/17 16:34:57编辑过]

--  作者：有点蓝 --  发布时间：2019/3/18 8:37:00 --   Select Case e.DataCol.Name         Case "子件编码","加入日期"         If e.DataRow.IsNull("子件编码")=False AndAlso e.DataRow.IsNull("加入日期")=False  Then         e.DataRow("最高单价") = DataTables("表B").SQLCompute("max(单价)","产品编码=\'" & e.DataRow("子件编码")  & "\' and 日期 > \'" & e.DataRow("加入日期").addmonths(-6) & "\'")             End If End Select

--  作者：工匠 --  发布时间：2019/3/18 23:07:00 --   谢谢老师，有了这个例子，后续多种情况下，取值灵活多了，谢谢！