主题：表事件命令问题

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("授课内容") & "' and 分类 = '" & e.datarow("分类") & "'")
            If dr1 IsNot Nothing Then
                e.DataRow("培训科目") = dr1("培训科目")
                e.DataRow("签到时间") = Date.Today
                e.DataRow("签到次数") = 1
            End If
        End If
    End If