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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-1/20161521165438478.png)