主题：语法问题

此主题相关图片如下：431.png

 

窗口事件：

Tables("培训课时统计表").AddNew

Dim cmb  As WinForm.ComboBox = e.form.Controls("ComboBox3")
 cmb.ComboList = DataTables("课类分类表").GetComboListString("分类")

 

“分类”列用于区分不同大类的培训课程

 

学员姓名：后面控件事件： 

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "'")

 

在选择了 教师姓名 和 学员姓名后， 会在授课内容后文本框中 自动代入 该名教师所教授该名学员的 “主课”内容

课时签到时，需要签到的全部三大类培训课程的上课记录

在"学员一览表"，每一名学员所在的行（“姓名”下同一行）中，分别有三列教师姓名列"辅导教师"，“辅导教师1”，“辅导教师2”，为三大类培训课程不同的授课教师，

 

我现在在上图中选择教师姓名后，学员姓名下来选项中只会出现该名教师所教“主课”类学员的名单，但是同一名教师也会同时教授其他大类的课程，

我要在学员姓名后面的控件中再加一段代码，在现有的筛选条件上再加一个“课类分类表”中“分类”列的依据？

 

cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' Or 辅导老师1 = '" & str & "' or 辅导老师2 = '" & str & "'")

在选择了 教师姓名 和 学员姓名后， 会在授课内容后文本框中 自动代入 该名教师所教授该名学员的 “主课”内容

课时签到时，需要签到的全部三大类培训课程的上课记录

 

 

我还需要修改吗？

Dim str1 As String = e.Form.Controls("ComboBox3").Value？

哦 不用修改  搞定了  多谢

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value

cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "' Or 陪练老师 = '" & str & "' or 乐理辅导 = '" & str & "' or 听力辅导 = '" & str & "'")

 

 

能不能再加个条件分类？

根据ComboBox3的内容，如果是ComboBox3主课  =辅导老师  ，如果ComboBox3是 陪练= 陪练老师  如果是ComboBox3乐理= 乐理老师

学员一览表的表结构 如下图

 

此主题相关图片如下：qq图片20150915202536.png

每个学员后面，有4个老师  分别教4大类课程

所以签到 要先用大类做分类。然后选老师。筛选学生

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value

Dim fl As String = e.Form.Controls("ComboBox3").Value

If fl = "主课" then

cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "辅导老师 = '" & str & "'")

ElseIf fl = "陪练" then

cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "陪练老师 = '" & str & "'")

ElseIf fl = "辅导" then

cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "乐理辅导 = '" & str & "'")

ElseIf fl = "听力" then

cmb.ComboList = DataTables("学员一览表").GetComboListString("姓名", "听力辅导 = '" & str & "'")

 End If

 

 

这样吗？

是，代码应该没问题。