【DataColChanging】事件 下面代码如何修改才正常
Dim flt As String
Dim dr As DataRow
Select Case e.DataCol.Name
Case "类别"
flt = "(类别 = '" & e.NewValue & "') and (类别项目 = '" & e.DataRow("类别项目") & "') and (项目属性 = '" & e.DataRow("项目属性") & "') and (分类 = '" & e.DataRow("分类") & "')"
Case "类别项目"
flt = "类别 = '" & e.DataRow("类别") & "' and 类别项目 = '" & e.NewValue & "' and 项目属性 = '" & e.DataRow("项目属性") & "' and 分类 = '" & e.DataRow("分类") & "'"
Case "项目属性"
flt = "类别 = '" & e.DataRow("类别") & "' and 类别项目 = '" & e.DataRow("类别项目") & "' and 项目属性 = '" & e.NewValue & "' and 分类 = '" & e.DataRow("分类") & "'"
Case "分类"
flt = "类别 = '" & e.DataRow("类别") & "' and 类别项目 = '" & e.DataRow("类别项目") & "' and 项目属性 = '" & e.DataRow("项目属性") & "' and 分类 = '" & e.NewValue & "'"
End Select
dr = e.DataTable.Find(" & flt & """)
If dr IsNot Nothing Then
MessageBox.Show("类别项目重复!")
e.Cancel = True
End If
加好友 
发短信
Post By：2016/5/26 14:08:00 [只看该作者]
