请问一个有关vfp中combo控件的使用问题

westbulls 2002-04-24 04:45:45
当我在使用COMBO控件时,其属性设置 为:columncount=2,boundcolumn=2,rowsourcetype=1-value,rowsource="aaa,1,bbb,2"
controlsource=test.testid(其中testid是 int 类型),firstelment=1,我在测试中加入四个导航按钮(top,next,bottom,prev),当我使用导航按钮进行导航时,希望数据源中数据为1,2等数据时,COMBO控件能够显示出aaa,bbb等信息,但是此功能无法实现,请问VFP中的COMBO的VALUE是否必须为字符型
...全文
353 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
vfp_system 2002-04-24
  • 打赏
  • 举报
回复
按你的意思是数据表中的数据是“1”,在COMBO中要显示“aaa",
而数据表中是“2”,则要显示"bbb",对吗?
要分两种情况:
一、如果COMBO与的类型相同可用下面的方法解决:
1,RowSourceType可以为6,combo的类型可以是字段的。
2,RowSource就直接为你要显示的字段
3,在combo的interactivechange中添加如下代码:
do case
case allt(字段)="1"
thisform.combo1.displayvalue="aaa"
case allt(字段)="2"
thisform.combo1.displayvalue="bbb"
endcase
thisform.refresh
二、如果不相同则要:(你的问题就要用这种方法解决)
1,COMBO的ROWSOURCETYPE不能为6,可以为1
2,自己添加一个方法或直接在命令按纽中添加如下代码:
do case
case 字段=1
thisform.combo1.displayvalue="aaa"
case 字段=2
thisform.combo1.displayvalue="bbb"
endcase(搞定)

流星尔 2002-04-24
  • 打赏
  • 举报
回复
不是value,应该是displayvalue。是字符型。不能是数值型。可能你需要在导航按钮写代码切换了。
if field1=1
thisform.combo1.displayvalue="aaa"
endif
看实例学VFP:更复杂的查询 时间:2009-02-12来源:编程入门网 作者:老马   在看实例学VFP:对表记录进行定位与查找操作及看实例学VFP:用SELECT语句创建查询这两个例子,我们可以在查询时可以从组合框选定一个要查询的字段。本例对这种查询方式再做进一步改进,使之在查询时不仅可以从一个组合框选取要查询的字段,还可以从另一个组合框选定操作符(如<、=、>等),从而实现更复杂的查询。本例应用到了数据环境,并使用“数据1”数据库的“人员信息表”作为数据环境的数据源,关于该数据库的情况已经在看实例学VFP:示例数据库一文给出,这里不再详述。运行界面见本文末尾。   制作步骤如下:   一、新建表单,将其caption属性值设置为“更复杂的查询例子”,AutoCenter属性值设置为.T.,width属性值设置为520,height属性值设置为245,并保存为“更复杂的查询例子.scx”。   二、右击表单空白处,选“数据环境”命令,将“人员信息表”添加到数据环境。在“数据环境设计器”拖动“人员信息表”的标题栏到表单上,自动生成一个表格控件。由于是从数据环境把“人员信息表”拖动过来由系统自动生成的,该表格控件的RecordSource属性及RecordSourceType属性已经由系统设置好了,不用管它,但name属性值系统给出的好长,为了书写代码的方便,我们把这个表格控件的name属性值修改为“grid1”。   三、在表格控件的下方添加一个Label控件,并把它的caption属性值设置为“查询条件”。   四、在label控件的右侧依次添加两个组合框控件一个文本框控件及两个命令按钮command1和command2,并把这两个命令按钮的caption属性值依次设置为“查找”和“退出”。   五、适当调整各控件在表单上的位置,调整后的表单设计器如下图所示:   六、设置组合框控件的属性:   (一)组合框Combo1:RecordSourceType属性值设置为“8-结构”,RecordSource属性值设置为“人员信息表”。   (二)组合框Combo2:RecordSourceType属性值设置为“1-值”,RecordSource属性值设置为“,>,<,=,>=,<=,<>”。   七、添加事件代码:   (一)表单的unload事件代码:close data   (二)组合框Combo1的InteractiveChange事件代码: if alltrim(this.displayvalue)="出生日期" thisform.text1.value={} else thisform.text1.value='' endif   (三)“查找”按钮command1的click事件代码: if thisform.grid1.recordsource='临时人员信息表' thisform.grid1.recordsource='人员信息表' endif' private CXTJ if empty(thisform.combo1.displayvalue) or empty(thisform.combo2.displayvalue) ; or empty(thisform.text1.value) && 判断列表框和文本框是否为空 messagebox('请输入完整条件!',16,'系统提示') thisform.combo1.setfocus else do case case alltrim(thisform.Combo1.Displayvalue)='基本工资' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' '+alltrim(thisform.text1.value) case alltrim(thisform.Combo1.Displayvalue)='出生日期' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' ctod("'+dtoc(thisform.text1.value)+'")' otherwise CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' "'+alltrim(thisform.text1.value)+'"' endcase Select * from 人员信息表 where &CXTJ. into cursor 临时人员信息表 thisform.grid1.recordsource='临时人员信息表' thisform.grid1.backcolor=rgb(200,224,248) endif   (四)“退出”按钮command2的click事件代码:thisform.release   八、运行“更复杂的查询例子.scx”,界面见下图:

34,591

社区成员

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧