| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 382 人关注过本帖
标题:关于COMBO控件
只看楼主 加入收藏
yanligangylg
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2007-10-28
收藏
 问题点数:0 回复次数:0 
关于COMBO控件
我现在用的是4个combo分别是combo1.combo2.combo3和combo4
其中combo1的属性:list为 计算机系.工商管理系.建处工程系(索引分别为0.1.2)
combo2.combo3.combo4分别在combo1的ListIndex为1.2.3时其visible=true(2.3.4分别是combo1控件中文本所对应 的专业)
现在Data控件和MSFlexGrid1空间连接一个ACCESS数据库
Select Case Combo2.ListIndex
Case 0
Combo4.Visible = False
Combo3.Visible = True
Combo2.Visible = False
Case 1
Combo4.Visible = True
Combo3.Visible = False
Combo2.Visible = False
Case 2
Combo4.Visible = False
Combo3.Visible = False
Combo2.Visible = True
end Select

现在我所写的代码是如下:
Private Sub Command1_Click()
Select Case Combo1.ListIndex
Case 0
Data1.RecordSource = "select * from 学生 WHERE 系部 like '" & Combo1.Text & " ' and 专业like'"&Combo2.Text & "' "
Data1.Refresh
Case 1
Data1.RecordSource = "select * from 学生 WHERE 系部 like '" & Combo1.Text & " ' and 专业 like '" & Combo3.Text & "' "
Data1.Refresh
Case 3
Data1.RecordSource = "select * from 学生 WHERE 系部 like '" & Combo1.Text & " ' and 专业 like '" & Combo4.Text & "' "
Data1.Refresh
end Select
实现其查询的功能
可是为什么不能实现呢
谁能说说我错在那里了?谢谢







搜索更多相关主题的帖子: 控件 COMBO 
2007-10-28 15:27
快速回复:关于COMBO控件
数据加载中...
 
   



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

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