判断数据窗口中是否有主键重复的数据

// 例 : 下面脚本可以判断数据窗口中是否有主键重复的数据。
// 假设数据窗口中的主键 dept_id
string ls_fieldname
long ll_rc

ls_fieldname = "dept_id"

// 取消过滤规则，显示全部的数据
dw_1.SetFilter("1=1")
dw_1.Filter()

ll_rc = dw_1.RowCount()

// 用主键进行排序
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