Hallo Forum,
ich bin Script-Neuling und habe ein Problem:
Das erste Script läuft super, das zweite (welches ein Derivat des ersten ist), läuft nicht:
1. Script:
'find.street
theView = av.getactivedoc
theTheme = theView.getThemes.Get(0)
theFTab = theTheme.getFTab
eingabefelder = {"Ort", "Strasse"}
standardwerte = {"Bitburg","Am Römerquell"}
key = MsgBox.MultiInput( "Welche Straße suchen Sie?", "", eingabefelder, standardwerte)
strOrt = key.Get(0)
strStrasse = key.Get(1)
strQuery = "([Ort] = " + strOrt.Quote + ") and ([Name] = " + strStrasse.Quote + ")"
theFTab.Query (strQuery,theFTab.GetSelection, #VTAB_SELTYPE_NEW)
av.GetProject.SetModified(true)
theView = av.GetActiveDoc
r = Rect.MakeEmpty
for each t in theView.GetActiveThemes
if (t.CanSelect) then
r = r.UnionWith(t.GetSelectedExtent)
end
end
if (r.IsEmpty) then
return nil
elseif ( r.ReturnSize = (0@0) ) then
theView.GetDisplay.PanTo(r.ReturnOrigin)
else
theView.GetDisplay.SetExtent(r.Scale(1.10000))
end
2. Script:
'find.adresse
theView = av.getactivedoc
theTheme = theView.getThemes.Get(0)
theFTab = theTheme.getFTab
eingabefelder = {"Ort", "Strasse", "Hausnummer"}
standardwerte = {"Bitburg","Am Römerquell", "13"}
key = MsgBox.MultiInput( "Welche Adresse suchen Sie?", "", eingabefelder, standardwerte)
strOrt = key.Get(0)
strStrasse = key.Get(1)
strHausnummer = key.Get(2)
strQuery = "([Ort] = " + strOrt.Quote + ") and ([Name] = " + strStrasse.Quote + ") and ([Sch_hausnu] = " + strHausnummer.Quote + ")"
theFTab.Query (strQuery,theFTab.GetSelection, #VTAB_SELTYPE_NEW)
av.GetProject.SetModified(true)
theView = av.GetActiveDoc
r = Rect.MakeEmpty
for each t in theView.GetActiveThemes
if (t.CanSelect) then
r = r.UnionWith(t.GetSelectedExtent)
end
end
if (r.IsEmpty) then
return nil
elseif ( r.ReturnSize = (0@0) ) then
theView.GetDisplay.PanTo(r.ReturnOrigin)
else
theView.GetDisplay.SetExtent(r.Scale(1.10000))
end
Meine Frage: Warum funktioniert eine Abfrage über 2 Tabellenspalten, aber nicht über 3 Spalten (derselben Tabelle)? - Leider finde ich den Fehler nicht.
Ich hoffe, Ihr könnt mir helfen!
Danke und Gruß,
Maggie
ich bin Script-Neuling und habe ein Problem:
Das erste Script läuft super, das zweite (welches ein Derivat des ersten ist), läuft nicht:
1. Script:
'find.street
theView = av.getactivedoc
theTheme = theView.getThemes.Get(0)
theFTab = theTheme.getFTab
eingabefelder = {"Ort", "Strasse"}
standardwerte = {"Bitburg","Am Römerquell"}
key = MsgBox.MultiInput( "Welche Straße suchen Sie?", "", eingabefelder, standardwerte)
strOrt = key.Get(0)
strStrasse = key.Get(1)
strQuery = "([Ort] = " + strOrt.Quote + ") and ([Name] = " + strStrasse.Quote + ")"
theFTab.Query (strQuery,theFTab.GetSelection, #VTAB_SELTYPE_NEW)
av.GetProject.SetModified(true)
theView = av.GetActiveDoc
r = Rect.MakeEmpty
for each t in theView.GetActiveThemes
if (t.CanSelect) then
r = r.UnionWith(t.GetSelectedExtent)
end
end
if (r.IsEmpty) then
return nil
elseif ( r.ReturnSize = (0@0) ) then
theView.GetDisplay.PanTo(r.ReturnOrigin)
else
theView.GetDisplay.SetExtent(r.Scale(1.10000))
end
2. Script:
'find.adresse
theView = av.getactivedoc
theTheme = theView.getThemes.Get(0)
theFTab = theTheme.getFTab
eingabefelder = {"Ort", "Strasse", "Hausnummer"}
standardwerte = {"Bitburg","Am Römerquell", "13"}
key = MsgBox.MultiInput( "Welche Adresse suchen Sie?", "", eingabefelder, standardwerte)
strOrt = key.Get(0)
strStrasse = key.Get(1)
strHausnummer = key.Get(2)
strQuery = "([Ort] = " + strOrt.Quote + ") and ([Name] = " + strStrasse.Quote + ") and ([Sch_hausnu] = " + strHausnummer.Quote + ")"
theFTab.Query (strQuery,theFTab.GetSelection, #VTAB_SELTYPE_NEW)
av.GetProject.SetModified(true)
theView = av.GetActiveDoc
r = Rect.MakeEmpty
for each t in theView.GetActiveThemes
if (t.CanSelect) then
r = r.UnionWith(t.GetSelectedExtent)
end
end
if (r.IsEmpty) then
return nil
elseif ( r.ReturnSize = (0@0) ) then
theView.GetDisplay.PanTo(r.ReturnOrigin)
else
theView.GetDisplay.SetExtent(r.Scale(1.10000))
end
Meine Frage: Warum funktioniert eine Abfrage über 2 Tabellenspalten, aber nicht über 3 Spalten (derselben Tabelle)? - Leider finde ich den Fehler nicht.
Ich hoffe, Ihr könnt mir helfen!
Danke und Gruß,
Maggie
- Anmelden oder Registieren, um Kommentare verfassen zu können
Gespeichert von Gast am Do., 01.07.2004 - 10:04
Permalinkand ([Sch_hausnu] = " + strHausnummer + ")"