主题：求高手帮忙纠错

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("学员姓名") & "' and 分类 = '" & e.DataRow("分类") & "'")
        If dr3 IsNot Nothing Then
            e.DataRow("授课内容") = dr3("课程")
           
        End If
    End If
End If