还有这个....也看不懂

来源：百度知道 编辑：UC知道 时间：2024/09/21 13:19:32
Dim mrc As ADODB.Recordset

txtsql = "select DISTINCT 年级 from class "
Set mrc = ExecuteSQL(txtsql)
mrc.MoveFirst
Combo1(0).Clear
Do While Not mrc.EOF
Combo1(0).AddItem mrc.Fields(0)

mrc.MoveNext
Loop
Combo1(0).ListIndex = 0
txtsql = "select DISTINCT 专业 from class where 年级='" & Trim(Combo1(0).Text) & "'"
Set mrc = ExecuteSQL(txtsql)
Combo1(1).Clear
mrc.MoveFirst

Do While Not mrc.EOF

Combo1(1).AddItem mrc.Fields(0)

mrc.MoveNext
Loop
Combo1(1).ListIndex = 0
txtsql = "select DISTINCT 年制 from class where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'"
Combo1(2).Clear
Set mrc = ExecuteSQL(txtsql)
mrc.MoveFirst
Do While Not mrc.EOF

Combo1(2).AddItem mrc.Fields(0)

mrc.MoveNext

Dim mrc As ADODB.Recordset '定义mrc变量为数据库变量

txtsql = "select DISTINCT 年级 from class " '在class表中筛选“年级”字段
Set mrc = ExecuteSQL(txtsql)
mrc.MoveFirst '定位到第一条记录
Combo1(0).Clear '清空下拉列表Combo1(0)
Do While Not mrc.EOF '如果不是最后一条记录则进入循环
Combo1(0).AddItem mrc.Fields(0) '在Combo1(0)中添加新项目，内容为当前记录的第一个字段

mrc.MoveNext '移动到下一条记录
Loop '循环
Combo1(0).ListIndex = 0 '定位到下拉列表的第一个项目
txtsql = "select DISTINCT 专业 from class where 年级='" & Trim(Combo1(0).Text) & "'" '在class表中筛选Combo1(0)所选内容
Set mrc = ExecuteSQL(txtsql)
Combo1(1).Clear '清空下拉列表Combo1(1)
mrc.MoveFirst '定位到第一条记录

Do While Not mrc.EOF '如果不是最后一条记录则进入循环

Combo1(1).AddItem mrc.Fields(0) '在Combo1(1)中添加新项目，内容为当前记录的第一个字段

mrc.MoveNext '移动到下一条记录
Loop '循环
Combo1(1).ListIndex = 0 '定位到下拉列表的第一个项目
txtsql = "select DISTINCT 年制 from