标题:为什么一离开combox组合框,刚输入TEXT的值没有了。
取消只看楼主
YZCZWCB
Rank: 1
等 级:新手上路
帖 子:191
专家分:5
注 册:2010-1-9
结帖率:97.14%
已结贴  问题点数:20 回复次数:4 
为什么一离开combox组合框,刚输入TEXT的值没有了。
第一个问题:
  我的COMBO的样式是:下拉组合框。数据类型为:6-字段。
如题,在TEXT中输入的数据,一离开就没有,如何解决?

第二个问题:
  如何在TEXT中输入数据,使下拉框自动展开,根据我输入的数据进行查到相关联的数据上。
如:我输入“财政”,要求下拉框自动展开,焦点指向“扬中市财政局”上。
搜索更多相关主题的帖子: 输入 TEXT combox 
2010-03-22 12:48
YZCZWCB
Rank: 1
等 级:新手上路
帖 子:191
专家分:5
注 册:2010-1-9
得分:0 
搜索不到就空白。
那不是就没办法录入新数据了?

那我想:是不是有一种方法将新数据添加到框中,再让它再搜索,会不会也会空白?

[ 本帖最后由 YZCZWCB 于 2010-3-22 15:36 编辑 ]
2010-03-22 15:35
YZCZWCB
Rank: 1
等 级:新手上路
帖 子:191
专家分:5
注 册:2010-1-9
得分:0 
已加到item中,怎么还不显示呢?
combo的VALID中:
   SELECT Cgdwtmp
   APPEND BLANK
   Replace 采购单位 WITH ALLTRIM(this.DisplayValue)
再加以下,也不行呀?
x=recco()
   This.Value=This.List(x)


[ 本帖最后由 YZCZWCB 于 2010-3-22 17:41 编辑 ]
2010-03-22 17:23
YZCZWCB
Rank: 1
等 级:新手上路
帖 子:191
专家分:5
注 册:2010-1-9
得分:0 
回复 6楼 qjbzjp
没通过?
2010-03-23 19:29
YZCZWCB
Rank: 1
等 级:新手上路
帖 子:191
专家分:5
注 册:2010-1-9
得分:0 
回复 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)

以上能够正常显示了,并且能将值添加到字段中,但就是没想出原因,究竟是怎么回事?不知道谁能告诉我。
2010-03-26 10:44



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-300175-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.077936 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved