PB判断是否有重复数据

使用Update函数保存数据之前，通常要判断数据窗口中是否有主键重复的数据，如果有重复则不允许提交。如果我们不编写程序判断，数据窗口本身业可以进行校验，但是显示的都是英文的提示信息。为此，我们通常在DBError事件中返回1以屏蔽该英文的提示信息，然后编写程序进行主键重复判断。
进行主键重复判断，实现的方法很多，效率高的不多。这里介绍的是效率非常高的一种方法。该方法的思路是，通过过滤，将只显示过一次的数据虑除，如果过滤之后数据窗口中还有数据，则说明有重复数据。程序如下：

string ls_fieldname
long ll_rc

ls_fieldname = "dept_id"
ll_rc = dw_1.RowCount()

dw_1.SetFilter("")
dw_1.Filter()

dw_1.SetSort(ls_fieldname + " A")
dw_1.Sort()

dw_1.SetFilter(ls_fieldname + " <> " + ls_fieldname + "[-1] or GetRow() =1")
dw_1.Filter()
if dw_1.RowCount() < ll_rc then
   MessageBox("注意",ls_fieldname + "列中存在重复的数据!",StopSign!)
end if