Merhaba,

Bu dersimizde DATAREPORT'a kodla bağlanmadan söz etmek istiyorum.

 

Set DataReport1.DataSource = rs2.DataSource


    DataReport1.Sections("Section2").Controls.Item(1).Caption = "Başlık1"


    DataReport1.Sections("Section3").Controls.Item(1).Caption = "Başlık2"





    With DataReport1


      With .Sections("Section1").Controls


          .Item(1).DataMember = ""


          .Item(1).DataField = rs2.Fields("KODLAR").Name 'Listelenecek Kayıtlar


      End With


    End With


    DataReport1.Caption = "VB KODBANK KOD YAZDIRMA"


    DataReport1.Show


    DataReport1.WindowState = vbMaximized