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.