主题：求高手帮忙纠错

我知道错误原因了  dr3= "学员一览表" 这里

 

这些基础命令我稍微知道一些 只是让我头疼的问题是

 

分类在：”课类分类表里“  不在”学员一览表“里

而分类表里又没有学员姓名

就是表事件中修改  但是出错 我知道问题在哪里了

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


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


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

现在是在一个表事件中， 同时调用其他两个表的条件。

而学员一览表中 因为一行中同时出现 主课、附加、陪练   所以无法分类

看下14楼的图

如果先选择是选择 教师和学生之后 代入课程 当然也就自动代入分类了  很简单

 

但是现在很乱，  要先选择分类，然后再选择教师和学生， 求自动代入  该分类下  这名老师和学生关联的课程

如果先选择是选择 教师和学生之后 代入课程 当然也就自动代入分类了  很简单

 

但是现在很乱，  要先选择分类，然后再选择教师和学生， 求自动代入  该分类下  这名老师和学生关联的课程

 汗。

 

直接判断分类的值，去取值啊。

 

If e.Datarow("分类") = "主课" Then

 

ElseIf  e.Datarow("分类") = "陪练" Then

 

End If

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

If e.DataCol.Name = "学员姓名" OrElse 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         
               
            ElseIf  e.DataRow("分类") = "陪练" Then

               
            End If
           
        End If
    End If
End If