如图 如何实现一行一行的执行代码? 想要在打开表后 自动从第一行开始 让剩余列倒计时 从用时列取值后等到0 自动跳到下一行执行同样的代码 等最后一行到0后停止执行 该怎么写?这是之前有逻辑列时写在计划里的代码For Each dr As DataRow In DataTables("表A").Select("倒计时=true")
If dr.IsNull("剩余") Then
dr("剩余") = dr("用时")
Else
dr("剩余") = dr("剩余") - 1
If dr("剩余") <= 0 Then
dr("倒计时") = False
End If
End If
Next
还有表里的
If e.DataCol.Name = "倒计时" Then
If e.NewValue = True Then
e.DataRow("剩余") = e.DataRow("用时")
End If
End If
该怎么改代码?