表单中有text1和list1两个控件
text1的interactivechange事件代码
select 商品信息表
str1=alltrim(thisform.text1.value)
if empty(str1)
strtiaojian=""
else
STRTIAOJIAN="'"+STR1+"'$编号 OR "+"'"+STR1+"'$名称"
endif
thisform.list1.rowsource=""
set filter to &strtiaojian
go top
thisform.list1.rowsource="商品信息表.编号,名称,厂家,规格"

text1的keypress事件代码
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode=13
nodef
if alltrim(this.value)<='0'
thisform.list1.setfocus
endif
endif
为什么我在text1中输入内容后，keypress事件代码没效了，要是text1是空的就正常

taohua300那该怎么怎么解决啊
月沐庭轩你说的方法不管用啊

月沐庭轩,谢谢了
你方法管用了，我把<改成了>就可以了

月沐庭轩，我把if alltrim(this.value)<='0'里的小于号改成了大于号就解决了

月沐庭轩，改成了大于号之后，文本框空的时候，list1又不能获得焦点了，我要文本框空或有文本的时候list1都能获得焦点，该怎么办

月沐庭轩，取消不了if语句
我多加了个if语句就行了
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode=24
nodef
if alltrim(this.value)=>'0'
thisform.list1.setfocus
else
if alltrim(this.value)=<'0'
thisform.list1.setfocus
endif
endif
endif

1