If 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
在这个命令之上再加一个条件,如果“分类”列下行内容为“主课”
在这里加条件还是在绑定窗口的事件命令里加??