求助DataColChanging中find的写法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

【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

主题：求助DataColChanging中find的写法