通过下拉框直接选值的时候,可以实现了。
如果想通过在combo输入代码,例如:MJX,下拉框就剩下 母鸡(小),我写的这段代码问题出在哪里请帮忙看下:(代码写在combo的INTERACTIVECHANGE
WITH thisform.mhtab1.page2.grid1.column2
cFilter=ALLTRIM(.COMBO1.DISPLAYValue) ***cfilter 定义的公共变量
SELECT wz ***wz 就是combo的数据源
IF !EMPTY(cFilter)
SET FILTER TO OCCURS(UPPER(cFilter),WZ.代码)>0
.combo1.Requery
ELSE
SET FILTER TO
.combo1.Requery
ENDIF
IF .combo1.ListCount=1
.combo1.displayValue=THIS.LIST(THIS.LISTINDEX,1)
thisform.mhtab1.page2.grid1.column4.TEXT1.VALUE=THIS.LIST(THIS.LISTINDEX,3)
ENDIF
ENDWITH
写完后,我在combo无法输入任何值,连下拉框都用不了了,不知道为什么?combo的style 已经设置为0.