Dim ASD 

SmartTags("DTL_1")=False

ASD = Timer() 

Do Until Timer() => ASD + 5   

SmartTags("DTL_2")=Now()

SmartTags("D20_Filename_of_Auto_Save")= SmartTags("D20_Batch_Number")&Now() 

Loop

 If SmartTags("Container_Seal") Or SmartTags("D12_Cover_ON") Then

SetBit "Info_Bowl_No_Close"

Else

If SmartTags("D20_Record_Number")>0 Then

If SmartTags("D20_Auto_Save") Then

SaveDataRecord "Print_Data", SmartTags("D20_Filename_of_Auto_Save"), hmiOverwriteAlways, hmiOn, "D20_Print\Stats_of_Auto_Save"

SetBit "D20_Record_OK[0]"

End If

If SmartTags("D20_Auto_Print") Then

PrintReport "Print_Real_Data"

End If 

End If 

ActivateScreen "Start", 0

  SetTag "D12_Technology_Model", 0

End If 

SmartTags("DTL")=Now()

SmartTags("DTL_1")=True

博图V15.1  TP1200的触摸屏运行该脚本，无法执行LOOP后的语句！求助哪里出问题了