| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1171 人关注过本帖
标题:关于组合框中的值如何修改以及增加的问题
取消只看楼主 加入收藏
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
结帖率:97.22%
收藏
已结贴  问题点数:20 回复次数:4 
关于组合框中的值如何修改以及增加的问题
我建了一个表单:
"客户"是用组合框combo1,"地址"是用文本框text1.
组合框的rowsource是"客户表.客户",rowsourcetype是"6-字段",controlsource也是"客户表.客户"
combo1的valid事件中也有代码:
lItemExists = .F. && assume the value isn't in the list.
FOR i = 1 to THIS.ListCount
   IF THIS.List(i) = THIS.Text
      lItemExists = .T.
      EXIT
   ENDIF
ENDFOR
IF !lItemExists
   THIS.AddItem(THIS.Text)
   append blank
   replace 客户 with this.text
ENDIF
现在的问题是在组合框中输入后改变的是另一条记录,不是原先显示的那条记录.
搜索更多相关主题的帖子: 如何 blank replace 文本框 
2010-06-30 15:38
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
如果rowsource设置为查询语句的话,
那我的"select 客户 from 客户表"这段话要放在什么地方哟

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2010-06-30 21:02
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
我按楼上教的做了,改成以下:
"客户"是用组合框combo1,"地址"是用文本框text1.
组合框的rowsource是"select 客户 from 客户表 order by 客户",rowsourcetype是"3-SQL语句",controlsource还是是"客户表.客户"
combo1的valid事件中代码:
lItemExists = .F. && assume the value isn't in the list.
FOR i = 1 to THIS.ListCount
   IF THIS.List(i) = THIS.Text
      lItemExists = .T.
      EXIT
   ENDIF
ENDFOR
IF !lItemExists
   THIS.AddItem(THIS.Text)
ENDIF
现在的问题是:我一修改客户的值,就变成空的了

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2010-07-01 13:22
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
combo1控件的displayvalue我没有动,还是(无)

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2010-07-02 13:53
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
我在combo1的valid中就只放了上页那一段代码.
我一改变客户的内容就变成了空的了.是不是还要其他代码配套使用

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2010-07-02 13:58
快速回复:关于组合框中的值如何修改以及增加的问题
数据加载中...
 
   



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

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