主题：限制了一样的不能导入，不起效果，请老师帮忙看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

约束了重复的不能导入，不能导入才对，导入了就不对了

Do While DataTables("销售").Select(filter1).Count>3
                    For Each cf As DataRow In DataTables("销售").Select(filter1)
                        If dj<cf("单价")
                            dj=cf("单价")
                            zd=cf("_identify")
                        End If
                    Next
                    DataTables("销售").DeleteFor("_identify='" & zd &"'")
                Loop
这部分语句，我写的对吗？我看不是我想要的结果呢

不是，就是数据库中保留三条相同记录，多于三条记录时，删除单价最大的记录