DataColChanged中，从后台数据中查询数据，看是否有重复的数据，在确认订单时，发现有重复时在二次下单中自动为真。我应该怎么写？
Select Case e.DataCol.Name
Case "确定订单"
If e.DataRow("确定订单") = True Then '当点击'是第一次下单'时,检查有无数据是重复的,
Dim drCF As DataRow = e.DataRow
If drCF.IsNull("确定订单") = False Then
Dim drs As List(of DataRow) = DataTables("表A").SQLSelect("下单人 = e.DataRow('下单人') " )
Dim Sum As Integer
Sum = 0
For Each dr As DataRow In drs
Sum = Sum + 1
Next
If Sum > 0 Then
e.DataRow("二次下单") = True
End If
End If
End If
End Select
------------
此主题相关图片如下：qq图片20160105211541.png
加好友 
发短信
Post By：2016/1/5 21:17:00 [只看该作者]
