数据窗口中dec类型的字段vipcardno设为空??

[fanzs007]

//itemchanged写入:

string ls_sfzhm,ls_vipcard
dec ll_temp1,ll_vipcardno
This.AcceptText()
if dwo.name='vipcardno' then
ll_vipcardno=dw_1.getitemdecimal(dw_1.getrow(),"vipcardno")
ls_vipcard=Right(string(ll_vipcardno),6)
ls_vipcard=left(ls_vipcard,5)
select count(*) into :ll_temp1 from resa_vip where vipcardno=:ll_vipcardno;
if ll_temp1<1 then
dw_1.setitem(dw_1.getrow(),"vipcard",ls_vipcard)
else
messagebox("提示","条形码不能重复登记!")
dw_1.setitem(dw_1.getrow(),"vipcard","") //可以实现
//dw_1.object.vipcardno[1] =setnull(ll_vipcardno)
dw_1.setcolumn('vipcardno')
dw_1.setitem(dw_1.getrow(),"usestatus",1)
dw_1.setitem(dw_1.getrow(),"vipcardno",2) //可以实现
end if
end if

如果输入重复的条形码，想把dec类型的字段vipcardno设为空，焦点还是停在vipcardno,
问题是焦点停到下个字段,vipcardno还是原先输入条形码,求解??

[l_8_l]

ItemChanged event (DataWindows)

Return value

Set the return code to affect the outcome of the event:

0 (Default) Accept the data value
1 Reject the data value and don't allow focus to change
2 Reject the data value but allow the focus to change

[eviler]

要用post ，类似

post setitem(dw_1.getrow() , 'vipcardni' ,'')

[fanzs007]

dw中数值型字段如何赋空值?
数值型的字段如何用setitem赋空值?谢谢!

[zlf19810306]

注意itemchanged事件里，accepttext函数是无效的。因为accepttext函数会触发itemchanged事件。否则就会死循环了