Seçili kaydın raporlanması için öncelikle Rap isimli birtablo oluşturun.
Bu tablo içerisinde veri türü sayı olan IdNo adında bir alan oluşturun.
Projenizin veritabanı tablosunda veri türü Otomatiksayı bir alan olması gerekir. Örn. IdNo
VB formunuzun içerisine 2 adet TextBox , 1 adet data nesnesi ve 1 Adet Command butonu yerleştirin.

Data1 nesnesinin yolunu yeni oluşturduğumuz Rap tablosu olarak gösterin,
TextBox’ lardan birincisi Text1 formunuzun tablosundaki IdNo alanını seçin,
İkinci TexBox’ ta ise yeni oluşturduğunuz Rap isimli tablonun IdNo alanını seçin.


Bu iki tablodan IdNo alanlarının içeriklerini kullanarak, Formun IdNo’ sunu yeni oluşturduğumuz tablonun
IdNo alanına yazdırıp, bunu CrystallReport içerisine sorgu olarak yerleştireceğiz. Böylelikle raporda hiçbir
sogu kriteri sorulmadan direkt olarak aktif kayıt açılacaktır.

Command1 Butonu içerisine

Private Sub Command1_Click()
Text2 = Text1 ‘ Ana tablonun IdNo alanını Rap tablosunun IdNo alanına yazdırır
Data1.Refresh ‘ Rap tablosunun text içeriğini yeniler
CrystalReport1.Action = 1 ‘ Raporumuzu çalıştırı.
End Sub

( Burada text2 Rap tablosunun IdNo’ sunun text1 yani formunuzda kullandığınız tablonun IdNo’ sunu yazdırıyor ve
Data1.refresh ile tablonun güncellenmesini sağlıyoruz. Ardındanda CrystalReport1.Action = 1 ilede raporu çalıştırıyoruz.

Şimdi sıra CrystalReport içerisindeki düzenlemede bunun içi raporumuzu açın.
Raporunmuza Rap tablosunu ekleyin ve ardından selectexpert ile Rap tablosunun IdNo alanını formunuzdakullandığınız
tablonun Id alanına eşitleyin

( Örn.: Rap.IdNo=Tablo1.IdNo ) burada formnuzda kullandığınız tablonun IdNo alanı Rap adlı tablonun IdNo alanına
eşit olan kayıtların raporlanmasını sağlıyoruz.