回复 6楼 qjbzjp
呵呵,终于摸出来了,在你的意见下,我做了以下调整:
第一、在combo的controlsource属性中置空,不要添加数据源
第二,在combo的 lostfocus中,在以下程序后,加两语。在这里对将值添加到字段中
itemexists=.f.
sele Cgdwtmp
for i=1 to this.listcount
if alltrim(this.list(i))==alltrim(this.text)
itemexists=.t.
exit
endif
endfor
if !itemexists.and.!empty(this.text)
appe blan
repl
Cgdwtmp.采购单位 with alltrim(this.text)
this.list(i)=this.text
endif
*----在这里对将值添加到字段中
SELECT jzzk_lsk
REPLACE 采购单位 WITH ALLTRIM(this.DisplayValue)
以上能够正常显示了,并且能将值添加到字段中,但就是没想出原因,究竟是怎么回事?不知道谁能告诉我。