| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1965 人关注过本帖
标题:为什么一离开combox组合框,刚输入TEXT的值没有了。
只看楼主 加入收藏
YZCZWCB
Rank: 1
等 级:新手上路
帖 子:191
专家分:5
注 册:2010-1-9
结帖率:97.14%
收藏
已结贴  问题点数:20 回复次数:7 
为什么一离开combox组合框,刚输入TEXT的值没有了。
第一个问题:
  我的COMBO的样式是:下拉组合框。数据类型为:6-字段。
如题,在TEXT中输入的数据,一离开就没有,如何解决?

第二个问题:
  如何在TEXT中输入数据,使下拉框自动展开,根据我输入的数据进行查到相关联的数据上。
如:我输入“财政”,要求下拉框自动展开,焦点指向“扬中市财政局”上。
搜索更多相关主题的帖子: 输入 TEXT combox 
2010-03-22 12:48
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 
你在COMBO中输入的内容在combo所有item中搜索不到, 当然以空白显示了~~~

2010-03-22 15:22
YZCZWCB
Rank: 1
等 级:新手上路
帖 子:191
专家分:5
注 册:2010-1-9
收藏
得分:0 
搜索不到就空白。
那不是就没办法录入新数据了?

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

[ 本帖最后由 YZCZWCB 于 2010-3-22 15:36 编辑 ]
2010-03-22 15:35
sywzs
Rank: 10Rank: 10Rank: 10
来 自:辽宁
等 级:贵宾
威 望:15
帖 子:508
专家分:1725
注 册:2009-5-13
收藏
得分:5 
必须把新数据添加到combo的item中,如果combo的类型是字段,则需把新数据加入到表的相应字段中,如果combo的类型是数组,则需把新数据追加入数组中。总之新数据必须是combo的一个成员,离开此控件后,新数据才会依然存在。
2010-03-22 16:28
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
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:15 
试试:
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

相互学习,互相交流,共同提高。
2010-03-23 16:26
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
快速回复:为什么一离开combox组合框,刚输入TEXT的值没有了。
数据加载中...
 
   



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

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