关于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
实现其查询的功能
可是为什么不能实现呢
谁能说说我错在那里了?谢谢