Indeksiranje zapisov: Razlika med redakcijama
m |
|||
| Vrstica 6: | Vrstica 6: | ||
V [konzolo] - pritisnemo preslednico - vnesemo spodnje vrstice. V drugo vrstico vnesemo dejansko ime podatkovne plasti in v tretjo dejansko ime polja za indeks. Pritisnemo '''Enter'''. | V [konzolo] - pritisnemo preslednico - vnesemo spodnje vrstice. V drugo vrstico vnesemo dejansko ime podatkovne plasti in v tretjo dejansko ime polja za indeks. Pritisnemo '''Enter'''. | ||
| + | <source> | ||
Dim L As TLayer, F AS TField, I As Long | Dim L As TLayer, F AS TField, I As Long | ||
L = [Podatkovna plast] | L = [Podatkovna plast] | ||
| Vrstica 17: | Vrstica 18: | ||
Next | Next | ||
L.EndMultipleUpdate | L.EndMultipleUpdate | ||
| + | </source> | ||
K vsem razvrščenim filtriranim zapisom se v '''''Polje''''' zapišejo zaporedna števila od 1 naprej. | K vsem razvrščenim filtriranim zapisom se v '''''Polje''''' zapišejo zaporedna števila od 1 naprej. | ||
| Vrstica 22: | Vrstica 24: | ||
Naprednejši boste dodali na začetku in koncu še vrstici | Naprednejši boste dodali na začetku in koncu še vrstici | ||
| + | <source> | ||
Sub ZapID | Sub ZapID | ||
... | ... | ||
EndSub | EndSub | ||
| + | </source> | ||
ter rutino zapisali v ustrezni modul. Rutino je treba spremeniti tako, da bo po ukazu '''ZapID''' možno izbrati podatkovno plast in polje. | ter rutino zapisali v ustrezni modul. Rutino je treba spremeniti tako, da bo po ukazu '''ZapID''' možno izbrati podatkovno plast in polje. | ||
Nazaj na [[Zanimive rutine]] | Nazaj na [[Zanimive rutine]] | ||
Trenutna redakcija s časom 11:15, 26. marec 2010
Med mnogimi zapisi se včasih najlažje znajdemo, če jih oštevilčimo. Polje z indeksom je še posebej uporabno za razvrščanje in povezavo plasti brez topologije.
Najprej pripravimo v podatkovni plasti [Podatkovna plast] numerično polje Polje za indeks. S filtrom izberemo zapise, ki jih želimo oštevilčiti. Po želji jih razvrstimo.
V [konzolo] - pritisnemo preslednico - vnesemo spodnje vrstice. V drugo vrstico vnesemo dejansko ime podatkovne plasti in v tretjo dejansko ime polja za indeks. Pritisnemo Enter.
Dim L As TLayer, F AS TField, I As Long
L = [Podatkovna plast]
F = L.GetField ("Polje")
L.BeginMultipleUpdate
For I = 0 To L.FilteredRecords.Count - 1
Hint (IntToStr (I))
L.EditRecord.Edit (L.FilteredRecords.Items (I))
L.EditRecord.FldAsNumber (F) = I + 1
L.EditRecord.Update
Next
L.EndMultipleUpdateK vsem razvrščenim filtriranim zapisom se v Polje zapišejo zaporedna števila od 1 naprej.
Naprednejši boste dodali na začetku in koncu še vrstici
Sub ZapID
...
EndSubter rutino zapisali v ustrezni modul. Rutino je treba spremeniti tako, da bo po ukazu ZapID možno izbrati podatkovno plast in polje.
Nazaj na Zanimive rutine
