dotNETportal.cz

Prosím o radu, jak bych mohl získat počet položek (databázových řádků) na každé stránce v reportu a na každé stránce jej taky vypsat do příslušného (stejného) textového pole.

jednoducho pouzijete StringReader - newiem presny kod akze si ho budete musiet asi oprawit lebo som sa dozvedel o tejto funkcii len pred par dnami a este som si ju nestihol nastudovat , ale nieco si pamatam dufam ze to pomoze :

Dim sr As New StringReader(vasa databaza/textbox1.text)
            Dim pocetriadkov As String = "0"
            While Not s.Contains("<END>") 'primienka1
                s = sr.ReadLine() 'pripomienka2
                pocetriadkov += 1 'pripomienka3
            End While
MsgBox("databaza/dokument ma " + pocetriadkov.tostring + " riadkov")

pripomieka1 - na konci databazi/textu musi byt napisane (na poslednom riadku) <END> , ale mozete to zmenit aj na koniec podla vasej potreby , ale musi tam nieco byt aby zistil StringReader ze je koniec.... myslim ze vie vyhodit aj chybovu hlasku alebo nothing , ale prawe nemam moc casu hladat ako to vylepsit

pripomienka2 - citame dalsi riadok v ktorom nieje ukoncenie s textom <END>

pripomienka3 - pripocitame o jedno cislo viac (lebo citame dalsi riadok preto aj priratame cislo 1 teda ze sme sa posunuly o dalsi riadok...)

PS: je to trochu nezrozumitelne lebo to pisem rychlo a este sa ucim aj fyziku :) pardon

S pozdravom K.Moser

Díky za radu, každopádně koukám, že jsem byl zřejmě nepochopen... Potřebuji zjistit počet dynamicky generovaných řádků v tiskové sestavě na každé stránce (crystal report). Pole, které bych chtěl vypsat do hlavičky stránky by mělo mít formát "počet řádků na stráce/celkový počet řádků".

aha pardon :\ =D , stim vam asi nepomozem lebo tomu nerozumiem :)

s pozdrawom K.Moser

Zkuste vytvořit novou formuli, do které dejte jenom PageNumber. Pak vytvořte nový total running field a založte ho na nějakém klíči sestavy (hodnota, která bude pro všechny záznami stejná), nastavte typ na Count, počítání všech záznamů a resetování hodnoty při změně formule, kterou jste si vytvořil v prvním kroku. Tím byste měl "teoreticky" získat počet záznamů na stránce.

Je to jenom úvaha, takže nevím jestli to jde takhle udělat. Momentálně nemám po ruce CR, takže to nemůžu odzkoušet. Snad Vám to nějak pomůže.

ten prvy kod je nespravny nevsimajte si ho , tu je opraveny a aj odskusany :

Dim sr As New IO.StringReader(TextBox1.Text)
        Dim riadok As String = "nic"
        Dim pocetriadkov As Integer = "0"
        While Not riadok.Contains("<END>") 'primienka1
            riadok = sr.ReadLine() 'pripomienka2
            pocetriadkov += 1 'pripomienka3
        End While
        MsgBox("databaza/dokument ma " + pocetriadkov.ToString + " riadkov")