WinCC WinCC V7.3 User Archive filtern String

[Flaschkallaf]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen,

ich habe momentan ein Problem bei dem ich leider nicht weiterkomme, eventuell hat jemand eine Idee...

Folgendes versuche ich durchzuführen:

Ich arbeite mit WinCC v7.3 und verwende dort User Archive, in denen ich mehrere Datensätze verarbeiten muss.
Unter anderem benötige ich die Funktion nach einer Spalte zu Filtern (String Variable). Dies funktioniert auch mit meinem erstellten VBS-Script einwandfrei, allerdings nur
wenn in der Spalte alle Einträge numerisch sind (trotzdem als String deklariert). Sobald sich in einem Eintrag ein Buchstabe befindet, wird über den Filter kein Ergebnis angezeigt.

Ich habe schon einige Dinge versucht, bin aber leider bisher nicht weitergekommen. über einen Tipp oder Hinweis würde ich mich sehr freuen.

Hier noch mein Script das ich momentan verwende:

Sub OnClick(Byval Item)                      
Dim objUAControl
Dim Artikel
Artikel = HMIRuntime.Tags("Material_Auftrag").Read


Set objUAControl = ScreenItems("OCX_Stamdaten_1")
objUAControl.SelectArchiveName = "Stamdaten"
objUAControl.FilterSQL = "Material=" & Artikel
End Sub

Grüße Flaschkallaf

 

[Flaschkallaf]

Hallo zusammen,
parallel habe ich den Support bei Siemens bemüht.
Der Hinweis bzw. dessen Antwort hat die Lösung des Problems gebracht.

Antwort Siemens:

Es funktioniert bei nur, wenn der Wert für Artikel in einfachen Hochkommas angegeben wird (Konvention bei SQL, siehe Dokumentation bei Microsoft).
So sollte es gehen (vor und nach Artikel wird jeweils ein einfaches Hochkomma hinzugefügt):
objUAControl.FilterSQL = "Material='" & Artikel & "'"

Mit folgendem Code funktioniert das ganze. Vielleicht hilft es ja jemandem mit ähnlicher Problematik...

Sub OnClick(Byval Item)                      
Dim objUAControl
Dim Artikel
Artikel = HMIRuntime.Tags("Material_Auftrag").Read


Set objUAControl = ScreenItems("OCX_Stamdaten_1")
objUAControl.SelectArchiveName = "Stamdaten"
[B][FONT=Verdana]objUAControl.FilterSQL = "Material='" & Artikel & "'"[/FONT][/B]
End Sub