- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎样自动显示最新订单日期价格 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122316)
-- 发布时间：2018/7/23 10:28:00
-- 怎样自动显示最新订单日期价格
各位老师，
请教一下"最新订单日期"和"最近价格"列自动显示怎么写代码？
-- 发布时间：2018/7/23 10:36:00
--
datacolchanged事件
Select Case e.DataCol.name
Case "订单日期", "价格"
Dim fdr As DataRow = e.DataTable.find("客户=\'" & e.DataRow("客户") & "\' and 型号=\'" & e.DataRow("型号") & "\'", "订单日期 desc")
e.DataRow("最新订单日期") = fdr("订单日期")
e.DataRow("最新价格") = fdr("价格")
End Select