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
上面代码，如何改正？
加好友 
发短信
Post By：2024/9/23 9:39:00 [显示全部帖子]
