ll_row = dw_3.modifiedcount( )
ll_mod = 0
For ll_num = 1 to ll_row
ll_mod = dw_3.getnextmodified( ll_mod, primary! )
If ll_mod = 0 then
exit
Else
ls_var = dw_3.getitemstring( ll_mod, '主键' )
If isnull( ls_var ) or trim( ls_var ) = '' then
messagebox( '提示:','请输入主键' )
dw_3.scrolltorow( ll_mod )
dw_3.setcolumn( 1 )
dw_3.setfocus( )
return
End If
//已经填写主键:则可以用SQL语句来判断主键是否冲突
//需要区分两种情况:当前行是新增加的行 select count(主键) into :变 量
// from 表 where 主键=:ls_var
// 如果>0 则说明主键已有可以报错 return
// 如果是数据空中原来的纪录被修改 则需要判断主键是否发生变化
// 没有变化就不用判断, 如果有变化则用sql语句判断一下是否主键冲突
//
End If
Next
If dw_3.update() <> 1 Then
rollback;
messagebox( '提示:','保存失败!' )
Else
commit;
messagebox( '提示:','保存成功!' )
End If