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()
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()