主题：求高手帮忙纠错

。。。我之前也这么尝试过。。。执行以后 没反应  所以以为这样不对

If e.DataCol.Name = "学员姓名" Then
    If e.NewValue Is Nothing Then
        e.DataRow("授课内容") = Nothing
    Else
        Dim dr3  As  DataRow
        dr3 =  DataTables("学员一览表").Find("姓名 = '" & e.DataRow("学员姓名") & "'")
        If dr3 IsNot Nothing Then
            If e.DataRow("分类") = "主课" Then
                e.DataRow("授课内容") = dr3("课程")
            ElseIf  e.DataRow("分类") = "陪练" Then
                e.DataRow("授课内容") = dr3("陪练等级")
            ElseIf  e.DataRow("分类") = "附加" Then
                e.DataRow("授课内容") = dr3("乐理程度")
            ElseIf  e.DataRow("分类") = "听力" Then
                e.DataRow("授课内容") = dr3("听力程度")
            End If
        End If
    End If
End If

If e.DataCol.Name = "授课内容" OrElse e.DataCol.Name = "分类" Then
    If e.NewValue Is Nothing Then
        e.DataRow("培训科目") = Nothing
    Else
        Dim dr1  As  DataRow
        dr1 =  DataTables("课类分类表").Find("科目 = '" & e.DataRow("授课内容") & "'")
        If dr1 IsNot Nothing Then
            e.DataRow("培训科目") = dr1("培训科目")
            e.DataRow("签到时间") = Date.Today
            e.DataRow("签到次数") = 1
        End If
    End If
End If

可能我之前命令拼错了或者文字打错了吧，

那么我现在窗口控件命令

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

 

是否也可以再加上一个筛选条件分类了？？也就是ComboBox3

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

Dim str As String = e.Form.Controls("ComboBox3").Value
cmb.ComboList = DataTables("课类分类表").GetComboListString("科目", "分类 = '" & str & "'")

这两个筛选条件能同时存在吗？？

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

现在我选择好分类， 教师姓名， 学生姓名  可以自动得出  授课内容了

 

学生姓名后面的下拉内容，筛选成 教师姓名后面选中的  教师 所教的学生名单 

但是还是很多人，如果能再加一个  分类的筛选条件  人数就少了

可以实现吗

这个我已经实现了  只是想再加一个 分类作为 代入授课内容的 条件