还有这个....也看不懂DimmrcAsADODB.Recordsettxtsql="selectDISTINCT年级fromclass"Setmrc=ExecuteSQL(txtsql)mrc.MoveFirstCombo1(0).ClearDoWhileNotmrc.EOFCombo1(0).AddItemmrc.Fields(0)mrc.MoveNextLoopCombo1(0).ListIndex

Question

还有这个....也看不懂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 Loop

Answer 1

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 class where 年级='" & Trim(Combo1(0).Text) & "' and 专业='" & Trim(Combo1(1).Text) & "'" '在class表中筛选Combo1(0)、Combo1(1)所选内容 Combo1(2).Clear '清空下拉列表Combo1(2) Set mrc = ExecuteSQL(txtsql) mrc.MoveFirst '定位到第一条记录 Do While Not mrc.EOF '如果不是最后一条记录则进入循环 Combo1(2).AddItem mrc.Fields(0) '在Combo1(2)中添加新项目，内容为当前记录的第一个字段 mrc.MoveNext '移动到下一条记录 Loop'循环