LD.Query Data in einem Label

Rolf Mettler

Hallo Philipp

Habe folgenden Inhalt im Value Property eines Datenfeldes einer Etikette:
Dim Fahter As String

If LD.IsEmpty(ItemLabel("FatherCard")) Then
Fahter =LD.QueryData("Select T0.CardName + '<br/>' + T0.Address + '<br/>' + T0.ZipCode + ' ' + T0.City + '<br/>' + T0.Country FROM OCRD T0 Where T0.CardCode = '" & ItemLabel("CardCode") & "'")

Else
Fahter =LD.QueryData("Select T0.CardName + '<br/>' + T0.Address + '<br/>' + T0.ZipCode + ' ' + T0.City + '<br/>' + T0.Country FROM OCRD T0 Where T0.CardCode = '" & ItemLabel("FatherCard") & "'")
End If

textBox14.Value=Fahter.Replace("<br/>",vbcrlf)

Es ist die Absicht, dass wenn kein FatherCode (kein Konsolidierer) vorhanden ist, dass die normale Kundenadresse gedruckt wird und ansonsten die Adresse des Konsolidierers.

Hmm ... bei 90 % funktioniert das auch. Habe jetzt aber einzelne wo es nicht geht?!? Die GPs sind aber identisch konfiguriert.

Danke für einen Tipp.

Gruss ROlf

Philipp Knecht

Hallo Rolf

Schaut eigentlich nicht schlecht aus.
(Ausser dass man mit AdvancedDataBand die LD.IsEmpty Funktion einsparen könnte)
Was funktioniert denn nicht?
Hier mal ein Tipp ins blaue: Versuchs mal mit textBox14.Value="" am Anfang des Scriptes.

hth