Guten Morgen,
was ich machen will ist:
' *** Verbinden von Gemeindekennzahlen nach ThemenTabelle
QuellTab = av.GetProject.FindDoc("Gemeindekennzahlen.txt").GetVTab
ZielKey = theVTab.FindField(F8) 'F8 ist weiter oben definiert
QuellKey = QuellTab.FindField("Flurstueck")
theVTab .Join (ZielKey, QuellTab, QuellKey)
' *** In ThemenTabelle neues Feld einfügen und füllen
theBitmap.ClearAll
theVTab.AddFields({Field.Make("Gde_Zahl", #FIELD_CHAR,8,0)})
### BIS HIER KLAPPT ALLES und jetzt wirds blümerant:
' *** Gemeindekennzahlen nach Gde_Zahl kopieren
fromField = theVTab.FindField("Gemeindekennzahl") '
toField = theVTab.FindField("Gde_Zahl")
theBitmap = theVTab.GetSelection
theBitmap.SetAll
How = theBitmap.Count
' *** das HOW sollte mir die Anzahl der Datensätze zurückgeben. in der Datei sind 130, HOW meldet 131!!!
MsgBox.Info(How.AsString,"")
' *** Hier will ich nun die Werte aus "Gemeindekennzahl" nach "Gde_Zahl" bringen
' *** und es klappt NICHT
For each rec in theBitmap
theValue = theVTab.ReturnValue(fromField,rec)
theVTab.SetValue(toField,rec,theValue)
end
theVTab.UpdateSelection
theVTab.UnjoinAll
theVTab.SetEditable(false)
av.GetProject.SetModified(true)
Im letzte Abschnitt steigt AVENUE in die Eisen und meldet:
"Zugriffsversuch auf gelöschten Datensatz 130"
Was mache ich falsch ????
NochnKlaus
was ich machen will ist:
' *** Verbinden von Gemeindekennzahlen nach ThemenTabelle
QuellTab = av.GetProject.FindDoc("Gemeindekennzahlen.txt").GetVTab
ZielKey = theVTab.FindField(F8) 'F8 ist weiter oben definiert
QuellKey = QuellTab.FindField("Flurstueck")
theVTab .Join (ZielKey, QuellTab, QuellKey)
' *** In ThemenTabelle neues Feld einfügen und füllen
theBitmap.ClearAll
theVTab.AddFields({Field.Make("Gde_Zahl", #FIELD_CHAR,8,0)})
### BIS HIER KLAPPT ALLES und jetzt wirds blümerant:
' *** Gemeindekennzahlen nach Gde_Zahl kopieren
fromField = theVTab.FindField("Gemeindekennzahl") '
toField = theVTab.FindField("Gde_Zahl")
theBitmap = theVTab.GetSelection
theBitmap.SetAll
How = theBitmap.Count
' *** das HOW sollte mir die Anzahl der Datensätze zurückgeben. in der Datei sind 130, HOW meldet 131!!!
MsgBox.Info(How.AsString,"")
' *** Hier will ich nun die Werte aus "Gemeindekennzahl" nach "Gde_Zahl" bringen
' *** und es klappt NICHT
For each rec in theBitmap
theValue = theVTab.ReturnValue(fromField,rec)
theVTab.SetValue(toField,rec,theValue)
end
theVTab.UpdateSelection
theVTab.UnjoinAll
theVTab.SetEditable(false)
av.GetProject.SetModified(true)
Im letzte Abschnitt steigt AVENUE in die Eisen und meldet:
"Zugriffsversuch auf gelöschten Datensatz 130"
Was mache ich falsch ????
NochnKlaus
- Anmelden oder Registieren, um Kommentare verfassen zu können
Gespeichert von Gast am Do., 05.01.2006 - 08:02
Permalinkam Ende der Prozedur sind ja alle Bitmaps ausgewählt und Avenue meldet
"131 von 130 ausgewählt"
Toll aber was soll das
NochnKlaus
Gespeichert von Gast am Do., 05.01.2006 - 14:03
PermalinkGehar erkannt - Gefahr gebannt, soll heißen : Problem gelöst
NochnKlaus
Gespeichert von nochngast am Do., 05.01.2006 - 16:25
PermalinkGespeichert von Rena am Fr., 06.01.2006 - 10:36
PermalinkSchön, daß du dein Problem lösen konntest, aber für die Leser dieses Forums wäre ein kleiner Hinweis, woran es denn nun gelegen hat, ganz hilfreich...
Gruß
Rena
Gespeichert von Gast am Mo., 09.01.2006 - 13:44
Permalinkich hatte 1 korruptes dbf und dann einen Fehler zum 2. Mal gemacht, der ja nun wirklich nicht von Pappe ist:
"For each rec in theBitmap"
muss es natürch
"For each rec in theVTab"
heissen. (Bitte nicht mehr schimpfen, liebe(r) Rena)
NochnKlaus