Verificarea oricărei mese pentru repetarea liniilor, cu ieșirea mesajului pe care liniile sunt duplicate și modul "Failure" pentru realizarea documentelor.
În această procedură, duplicate sunt căutate pentru toate coloanele de rânduri. De exemplu, este un duplicat pentru a repeta valorile în două rânduri în toate coloanele.
Dacă liniile repetate sunt mai mari decât una, toate acestea vor fi afișate în mesaj, cu numărul de ordine al șirului sursă și linia de repetare.
Este mai bine să folosiți această procedură în modulul general și să o numiți din procedurile "Prizapisi" sau "Prelucrarea comportamentului" etc. Adică, în cele în care poți să refuzi să faci alte acțiuni
Ca tabel, puteți specifica "Tabela de valori" sau "TableTitle" a documentului, directorului etc.
Dacă Type (PM) = Type ("ValueTable") Apoi
Tabelul 3 = PM;
altfel
Tabelul 3 = PM. Descărcați ();
Sfârșit Dacă;
Selecție = structură nouă ();
Pentru fiecare ciclu din tabelul din tabel
Selecție. Clear ();
Pentru fiecare coloană din tabel. Ciclul difuzoarelor
În cazul difuzoarelor. nume <> "Numărul de rânduri" Apoi
Selecție. Inserați (Coloane, Nume, Pagină [Coloane, Nume]);
Sfârșit Dacă;
Sfârșitul ciclului;
Rânduri = Tab. Căutați șir (selecție);
Dacă Corzile. Număr ()> 1 Apoi
Pentru fiecare rânduri găsite din linia ciclului
Dacă Corzile. Găsiți (găsit rânduri)> 0 Apoi
StringNotes = "Linia #" + Linii [0]. NumberString + "se potrivește liniei nr." + FoundString. Număr de rânduri;
Raportați la eroare (Șir de mesaje, Eroare "Șterge linii de pauză!");
Sfârșit Dacă;
Sfârșitul ciclului;
Sfârșit Dacă;
Sfârșitul ciclului;
Sfârșitul procedurii
Articole similare
-
Notă în tabelul Excel se calculează utilizând funcția încorporată fsubbr
-
Care este rata cheie a CB, rata de refinanțare - tabelul de valori, sfatul finanțatorului
Trimiteți-le prietenilor: