Dim d2 As Date = DataTables("表A").Current
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("[事件] = '" & d2("事件") & "'")
For Each dr As DataRow In drs
If drs("结束时间") = drs("执行时间") And drs("事件") = Then'事件1' Then
计划1
ElseIf drs("结束时间") = drs("执行时间") And drs("事件") = Then'事件2' Then
计划2
ElseIf drs("结束时间") = drs("执行时间") And drs("事件") = Then'事件3' Then
计划3
Else
计划X
End If
Next
需求:如果表A的结束时间"="执行时间"和("事件") = Then'事件1',执行“计划管理中的计划1
如果表A的结束时间"="执行时间"和("事件") = Then'事件2',执行“计划管理中的计划2
如果表A的结束时间"="执行时间"和("事件") = Then'事件3',执行“计划管理中的计划3
上面代码,如何改正?