|
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
|
加好友 
发短信
Post By：2015/8/10 9:43:00 [只看该作者]
