怎样自动显示最新订单日期价格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样自动显示最新订单日期价格

共有2135人关注过本帖树形打印复制链接主题：怎样自动显示最新订单日期价格

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

怎样自动显示最新订单日期价格 发帖心情

Post By：2018/7/23 10:28:00 [只看该作者]

各位老师，

请教一下"最新订单日期"和"最近价格"列自动显示怎么写代码？

比如空出来的第10行，最新订单日期自动显示“2018-03-0

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自动显示最新订单日期价格.foxdb

1”，最近价格自动显示"6"

有点甜

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

加好友

发短信

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

Post By：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

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

主题：怎样自动显示最新订单日期价格