 加好友  发短信
等级：七尾狐
帖子：1710
积分：11410
威望：0
精华：0
注册：2015/6/22 8:11:00
|
[求助]删除列重复的行  Post By：2020/2/14 13:10:00 [只看该作者]
老师好，怎样删除两列新增重复的行。
Select
Case e.DataCol.name
Case
"型号","规格"
Dim dr As
DataRow = e.DataRow
If dr.IsNull("型号") =
False
AndAlso dr.IsNull("规格") = False
Then
If e.DataTable.Compute("Count([_Identify])","型号 = '" & dr("型号") & "' And
规格 = '" & dr("规格") & "'") > 1
Then
e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
End
If
End
If
End
Select
|
|
