Tvorba sestav - DataReport

P°edstavte si p°φpad, kdy chcete nap°φklad zobrazit na reportu, kter² ji₧ mßte vytvo°en filtrovanß data. Nenφ nutnΘ vytvß°et nov² RecordSet a sestavu. m∙₧eme pou₧φt to co ji₧ mßme vytvo°eno, jenom trochu upravφme datov² zdroj, ze kterΘho si DataReport naΦφtß data.

Otev°ete formulß°, na kterΘm mßme tlaΦφtko pro zobrazenφ sestavy a zobrazte k≤d, kter² je na udßlosti Click tlaΦφtka. ╪ekn∞me, ₧e chceme zobrazit vÜechna mφsta, jejich₧ PS╚ zaΦφnß dvojΦφslφm 36. Upravφme tedy k≤d nßsledovn∞:

Private Sub Command1_Click()

   If DE.rssRep1.State = 1 Then
      DE.rssRep1.Close
   End If
   DE.rssRep1.Source = "Select * From PSC Where PSC Like '36%' _
      Order by Misto"
   DE.rssRep1.Open
   rptRep1.Show vbModal

End Sub

Nynφ zkuste projekt spustit a otev°φt sestavu. V sestav∞ by nynφ m∞ly b²t zobrazeny pouze ty mφsta, kterß majφ PS╚ zaΦφnajφcφ dvojΦφslφm 36.

Jak vidφte, toto je pom∞rn∞ p°φjemnß vlastnost DataReportu, kterß uÜet°φ spoustu Φasu a urychlφ v²voj VaÜich aplikacφ. StaΦφ si jen modifikovat RecordSet a pak na n∞j aplikovat sestavu. Je ovÜem nutnΘ, aby byl RecordSet p°ed volßnφm sestavy ji₧ otev°en², proto₧e jinak si jej DataReport bude inicializovat znovu !

Zp∞t DalÜφ