求助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

Select Case e.DataCol.name
    Case "类别","类别项目","项目属性","分类"
        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
End Select

flt的内容可能有问题，重复时不提醒

正常了，谢谢老师

主题：求助DataColChanging中find的写法