Select Case e.DataCol.Name
Case "客户名称","客户编号","商品名称","商品规格"
Dim pr As DataRow
Dim filter As String = "1=1 "
Dim cls() As String = {"客户名称","客户编号","商品名称","商品规格"}
For Each s As String In cls
If e.DataRow.IsNull(s) Then
filter = filter & "and (" & s & " = '" & e.DataRow(s) & "' or " & s & " is null)"
Else
filter = filter & "and " & s & " = '" & e.DataRow(s) & "'"
End If
Next
pr = DataTables("统计").Find(filter)
If pr Is Nothing Then
pr = DataTables("统计").addnew
pr("客户名称") = e.DataRow("客户名称")
pr("客户编号") = e.DataRow("客户编号")
pr("商品名称") = e.DataRow("商品名称")
pr("商品规格") = e.DataRow("商品规格")
End If
End Select
加好友 
发短信
Post By：2020/1/8 17:59:00 [只看该作者]
