DataColChanged中，查找下单时间之前的此下单人的最近一次记录,找到则返回优惠价的值，大神帮我看一下是不是这思路？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，我想查找下单时间之前的此下单人的最近一次记录,找到则返回优惠价的值，帮我看一下是不是这思路？

我写了还是显示不出，不知道哪里错了，请指教，

Select Case e.DataCol.Name

Case "确定订单"

If e.DataRow("确定订单") = True Then '当点击'是第一次下单'时,检查有无数据是重复的,

Dim count As Integer = DataTables("表A").SqlCompute("count(下单人)", "下单人 = '" & e.DataRow("下单人") & "'" )

'查找下单时间之前的此下单人的最近一次记录,找到则返回优惠价

Dim dr As DataRow = DataTables("表A").SQLFind("下单人 = '" & e.DataRow("下单人") & "'" And "确定订单 = 1" And "日期 <= '" & e.DataRow("日期") & "'" ,"日期 Desc")

If count >= 2 Then

e.DataRow("二次下单") = True

e.DataRow("优惠价") = dr("优惠价")

Else

e.DataRow("二次下单") = False

e.DataRow("优惠价") = ""

End If

Else

e.DataRow("二次下单") = False

e.DataRow("优惠价") = ""

End If

e.DataRow.Save()

End Select

----------------------------------------

dvubb 此主题相关图片如下：qq图片20160107183146.png

Select Case e.DataCol.Name
    Case "确定订单"


        If e.DataRow("确定订单") = True Then '当点击'是第一次下单'时,检查有无数据是重复的,
            Dim count As Integer = DataTables("表A").SqlCompute("count(下单人)", "下单人 = '" & e.DataRow("下单人") & "' And 确定订单 = 1" )
            '查找下单时间之前的此下单人的最近一次记录,找到则返回优惠价

            If count >= 2 Then
                Dim dr As DataRow = DataTables("表A").SQLFind("下单人 = '" & e.DataRow("下单人") & "' And 确定订单 = 1 And 日期 <= '" & e.DataRow("日期") & "'" ,"日期 Desc, _Identify")
                e.DataRow("二次下单") = True
                e.DataRow("优惠价") = dr("优惠价")
            Else
                e.DataRow("二次下单") = False
                e.DataRow("优惠价") = Nothing
            End If
        Else
            e.DataRow("二次下单") = False
            e.DataRow("优惠价") = Nothing
        End If


        e.DataRow.Save()
End Select

完美解决，谢谢了

主题：DataColChanged中，查找下单时间之前的此下单人的最近一次记录,找到则返回优惠价的值，大神帮我看一下是不是这思路？