代码1:执行没有问题
Dim ASD
SmartTags("intt")=0
ASD = Timer()
Do Until Timer() >= ASD + 12
SmartTags("D20_Filename_of_Auto_Save")=Now()
SmartTags("intt")=SmartTags("intt")+1
If Timer()< ASD Then
ASD=Timer()
End If
Loop
ActivateScreen "Start", 0
SetTag "D12_Technology_Model", 0
代码2:LOOP后面的语句不执行
Dim ASD
ASD = Timer()
Do Until Timer() >= ASD + 12
SmartTags("D20_Filename_of_Auto_Save")=Now()
If Timer()< ASD Then
ASD=Timer()
End If
Loop
ActivateScreen "Start", 0
SetTag "D12_Technology_Model", 0
以上2代码运行环境是博图V15.1,TP1200触摸屏。两段代码唯一去区别是:在DO UNTIL 语句中增加了SmartTags("intt")=SmartTags("intt")+1一段语句。请高手解惑,谢谢!