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

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

主题：求助DataColChanging中find的写法