UC知道帮忙翻译..请教
来源：百度知道 编辑：UC知道 时间：2024/05/04 08:29:28
Private Sub Combo1_Click(Index As Integer)
Dim mrc As ADODB.Recordset
If Index = 0 Then
txtsql = "select DISTINCT 专业 from class where 年级='" & Trim(Combo1(0).Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
Combo1(1).Text = ""
Combo1(2).Text = ""
Exit Sub
Dim mrc As ADODB.Recordset
If Index = 0 Then
txtsql = "select DISTINCT 专业 from class where 年级='" & Trim(Combo1(0).Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
Combo1(1).Text = ""
Combo1(2).Text = ""
Exit Sub
Private Sub Combo1_Click(Index As Integer) 'Combo1下拉列表的单击事件
Dim mrc As ADODB.Recordset '定义mrc变量为数据库变量
If Index = 0 Then '如果下拉列表序号为0则
txtsql = "select DISTINCT 专业 from class where 年级='" & Trim(Combo1(0).Text) & "'" '筛选class数据表中年级为Combo1(0)所选内容的专业
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then '如果没有记录，则清空两个下拉列表
Combo1(1).Text = ""
Combo1(2).Text = ""
Exit Sub'中断过程
私人小组combo1_click （指数为整数）
暗淡MRC的，因为adodb.recordset
如果指数= 0 ，然后
txtsql = "选择独特的专业，从以阶级那里年级= ' " ＆修剪（ combo1 （ 0 ） 。文本） ＆ " ' "
一套MRC的= executesql （ txtsql ）
如果mrc.eof =属实，则
combo1 （ 1 ） 。文本= " "
combo1 （ 2 ） 。文本= " "
出入境分