von Steffan » Mo, 11.09.2006 10:32
Hallo zusammen,
ich habe ein Formular mit einem Tabellengrid, in dem Adressen angezeigt werden. Um zusätzliche Informationen zur selektierten Adresse zu erhalten habe ich mir überlegt, diese per Makro beim Datensatzwechsel in den Tooltip (Hilfetext) zuschreiben. Das klappt eigentlich mit folgendem Code ganz gut
Code: Alles auswählen
....
oGridAddress.HelpText = BuildHelpAddress
....
Private Function BuildHelpAddress as string
oStat=oConn.createStatement()
sQuery = "SELECT * FROM addresses WHERE ( address_ID = " & cstr(iID_A) & " )"
oResult=oStat.executeQuery(sQuery)
oResult.Next
sTxt = oResult.getstring(1) & chr(13) & oResult.getstring(2) & chr(13)
sTxt = sTxt & oResult.getstring(3) & " "
if oResult.getstring(4) <>"" then sTxt =sTxt & oResult.getstring(4) & " "
sTxt = sTxt & oResult.getstring(5) & chr(13)
if oResult.getstring(6) <>"" then sTxt =sTxt & oResult.getstring(6) & "-"
if oResult.getstring(7) <>"" then sTxt =sTxt & oResult.getstring(7) & " "
sTxt =sTxt & oResult.getstring(8) & chr(13)
sTxt =sTxt & oResult.getstring(9) & chr(13) & chr(13)
sTxt =sTxt & "Tel.: " & chr(9) & oResult.getstring(10) & chr(13)
sTxt =sTxt & "Fax: " & chr(9) & oResult.getstring(11) & chr(13)
sTxt =sTxt & "Funk: " & chr(9) & oResult.getstring(12) & chr(13)
sTxt =sTxt & "Prv.: " & chr(9) & oResult.getstring(13) & chr(13)
sTxt =sTxt & "Mail: " & chr(9) & oResult.getstring(14) & chr(13)
BuildHelpAddress=sTxt
End Function
Jetzt habe ich allerdings seit heute das Problem, dass dass der Hilfetext nicht mehr mehrzeilig angzeigt wird sondern die gesamten Infos in einer Zeile stehen. Der Code wurde zwischenzeitlich nicht geändert, allerdings wurde die Datei auf einen anderen Rechner (Win2000, normalerweise sonst WinXP) bearbeitet. Kennt jemand dieses Problem und was kann man dagegen tun?
Steffan.
Hallo zusammen,
ich habe ein Formular mit einem Tabellengrid, in dem Adressen angezeigt werden. Um zusätzliche Informationen zur selektierten Adresse zu erhalten habe ich mir überlegt, diese per Makro beim Datensatzwechsel in den Tooltip (Hilfetext) zuschreiben. Das klappt eigentlich mit folgendem Code ganz gut[code]
....
oGridAddress.HelpText = BuildHelpAddress
....
Private Function BuildHelpAddress as string
oStat=oConn.createStatement()
sQuery = "SELECT * FROM addresses WHERE ( address_ID = " & cstr(iID_A) & " )"
oResult=oStat.executeQuery(sQuery)
oResult.Next
sTxt = oResult.getstring(1) & chr(13) & oResult.getstring(2) & chr(13)
sTxt = sTxt & oResult.getstring(3) & " "
if oResult.getstring(4) <>"" then sTxt =sTxt & oResult.getstring(4) & " "
sTxt = sTxt & oResult.getstring(5) & chr(13)
if oResult.getstring(6) <>"" then sTxt =sTxt & oResult.getstring(6) & "-"
if oResult.getstring(7) <>"" then sTxt =sTxt & oResult.getstring(7) & " "
sTxt =sTxt & oResult.getstring(8) & chr(13)
sTxt =sTxt & oResult.getstring(9) & chr(13) & chr(13)
sTxt =sTxt & "Tel.: " & chr(9) & oResult.getstring(10) & chr(13)
sTxt =sTxt & "Fax: " & chr(9) & oResult.getstring(11) & chr(13)
sTxt =sTxt & "Funk: " & chr(9) & oResult.getstring(12) & chr(13)
sTxt =sTxt & "Prv.: " & chr(9) & oResult.getstring(13) & chr(13)
sTxt =sTxt & "Mail: " & chr(9) & oResult.getstring(14) & chr(13)
BuildHelpAddress=sTxt
End Function[/code]
Jetzt habe ich allerdings seit heute das Problem, dass dass der Hilfetext nicht mehr mehrzeilig angzeigt wird sondern die gesamten Infos in einer Zeile stehen. Der Code wurde zwischenzeitlich nicht geändert, allerdings wurde die Datei auf einen anderen Rechner (Win2000, normalerweise sonst WinXP) bearbeitet. Kennt jemand dieses Problem und was kann man dagegen tun?
Steffan.