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

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