奇怪！ 在dw的itemchanged事件中写了个判断， 错误发生后数据再也保存不了了？？

[ufo_ufo]

？？

[JIANXIN_LU]

把你的问题说得明白一些？

[qiuyang_wang]

一、itemchanged事件中写了RETURN 1
二、有对话框弹出MESSAGEBOX。
三、保存前没有ACCEPTTEXT。
以上三种情况在特定的情况下都可能影响数据的保存，不知你是怎么回事，出错后又做了那些处理？

[booksfount]

避免重复，在此字段建立索引就行了，不用自己编程，系统自动监测。

[ufo_ufo]

的确同楼上说的， 有1，2 两项原因，我该怎么处理？？

[pufan]

贴一下程序代码.

[ufo_ufo]

int li_count
string ls_code

if dwo.name = "s_wrappage_code" then
ls_code = data

if ls_code = is_code then return 0

select count(*)
into :li_count
from t_wrappage
where s_wrappage_code = :ls_code;
if li_count > 0 then
messagebox("error","error")
return 1
end if
end if
return 0

[pufan]

你的用意是什么啊?

[ufo_ufo]

检查重复项阿，如果有，则报错

[pufan]

int li_count
string ls_code

if dwo.name = "s_wrappage_code" then
ls_code = this.gettext()

if ls_code = is_code then return 0

select count(*)
into :li_count
from t_wrappage
where s_wrappage_code = :ls_code;
if li_count > 0 then
messagebox("error","error")
return 1
end if
end if
return 0
这样试试

[tiggerliu]

老弟，重复项能这样判断吧？如果未保存的相同s_wrappage_code不是不能判断？何不用一循环：

int li_Row,li_RowCount
string ls_code

if dwo.name = "s_wrappage_code" then
li_RowCount =this.Rowcount()

for li_Row =1 to row -1
ls_code =this.getitemstring(li_Row,"s_wrappage_code")
if ls_code = data then
messagebox("error","error")
return 1
end if
next

for li_Row =row +1 to li_RowCount
ls_code =this.getitemstring(li_Row,"s_wrappage_code")
if ls_code = data then
messagebox("error","error")
return 1
end if
next
end if
return 0

[ufo_ufo]

不行， 没什么区别阿

[ufo_ufo]

只和数据库的数据比较，外面的不管

关键问题是发生错误后，数据再也保存不了了。

[pufan]

if ls_code = is_code then return 0
有点多余,屏蔽运行试试.

[pufan]

你的保存按钮中的dw_1.accepttext()
改为if dw_1.accepttext()<>1 then return
应该没有问题了.

[ufo_ufo]

不是这个问题 ：（

[ufo_ufo]

还是不行

[qiuyang_wang]

itemchanged事件中写RETURN 1，就会触发数据窗口的错误提示，从而使得难以移动焦点，并且这个数据也不被更新accepttext，所以保存不上。
将return 1改为return即可。
如果你写了return 1，则必须要求用户对这个错误做一个处理，直到正确为止。所以，你试一下在出现错误后修改数据直到正确，然后保存是否成功，如果成功就是这的原因，否则可能是数据窗口更新属性的原因。