Dim fl As String = e.Form.Controls("分类").Text Dim cmb As WinForm.ComboBox= e.Form.Controls("ComboBox学员姓名") Dim cmb As WinForm.ComboBox = e.Sender Dim str As String = e.Form.Controls("ComboBox1").Value If fl = "主课" Then cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' and 课程 is not null") ElseIf fl = "陪练" Then cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' and 陪练等级 is not null") ElseIf fl = "附加" Then cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' and 乐理程度 is not null") ElseIf fl = "听力" Then cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' and 听力程度 is not null") End If
|