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
加好友 
发短信
Post By：2016/1/7 19:10:00 [只看该作者]
此主题相关图片如下：qq图片20160107183146.png