在WINCC V7.4中写了一个VB脚本提示缺少END SUB，可是已经有了啊，不知道问题出在哪。
如下是脚本
Sub BackColor_OnPropertyChanged(ByVal Item, ByVal value)
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim lngValuea
Dim lngValueb
Dim device
Dim strSQL
Dim objCommand
Dim riqi
riqi=Now
Dim a
a = HMIRuntime.Tags("test6").Read
If a = 1 Then
HMIRuntime.Tags("starttime").write riqi
HMIRuntime.tags("stat").Write 0
HMIRuntime.tags("start1").Write 0
End If
If a = 0 Then
lngValuea = HMIRuntime.Tags("starttime").Read
lngValueb = HMIRuntime.Tags("stat").Read
lngValue = riqi
device = "TEST6"
strConnectionString = "Provider=MSDASQL;DSN=SSDSN;UID=;PWD=;"
strSQL = "INSERT INTO wincc (StartDate,EndDate,Device,RunTime)values(#" & lngValuea & "#, #" & lngValue & "#," & device & "," & lngValueb & ");"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End If
End Sub
麻烦大家帮忙看看到底是哪里出了问题，非常感谢。
最佳答案
我测试没问题，复制的你的脚本，检查没问题
把sub和endsub之间的脚本复制到记事本里面，在属性里面删除了脚本重新创建以下试试
图片说明：
提问者对于答案的评价：
好的 非常感谢！谢谢！谢谢！
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc357295.html
微信扫一扫 
支付宝扫一扫