pb利用数据窗口查询重复记录

dw_1.settransobject(sqlca)
dw_1.retrieve()

dw_1.SetSort ("g_id A")
dw_1.Sort()
dw_1.SetFilter ("g_id = g_id[-1]")
dw_1.Filter()

if dw_1.RowCount() > 0 then
  Messagebox("注意", "用户编码重复.")
end if

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