 加好友  发短信
等级：三尾狐
帖子：689
积分：5362
威望：0
精华：0
注册：2012/8/25 20:50:00
|
高速合并禁止重复值  Post By：2022/7/27 17:39: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
MessageBox.Show("已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
End
If
End
If
End
Select
|
|
