Registreren  Inloggen
maandag 24 april 2017
Forums » Visual Basic .NET » VB.NET » Toobar Item  
VBCentral Forums
Toobar Item
Laatste bericht 28 jan 2017 13:32 door Hans Scholten. 0 Antwoorden.
Printervriendelijk
  •  
  •  
  •  
  •  
  •  
Sorterten:
VorigeVorige VolgendeVolgende
U bent niet geautoriseerd om een antwoord te posten
Auteur Berichten
Hans ScholtenGebruiker is offline
Supernova
Supernova
Posts:1639
Avatar

--
28 jan 2017 13:32
    Ik wil graag in een rapportgenerator van devexpress een toolbar item toevoegen.

    Ik laad het rapport uit een database
    Dim newReport As XtraReport
    ' Retrieve a string which contains the report.
    Dim command As New SqlCommand("Select rapportinhoud From rapporten Where id=" & intRapportID, SQLconn)
    Dim dataAdapter As New SqlDataAdapter(command)

    Dim ds As New DataSet
    dataAdapter.Fill(ds, "rapporten")
    Dim DT As New DataTable
    DT = ds.Tables("rapporten")
    Dim DR As DataRow
    For Each DR In DT.Rows
    Dim s As String = (DR("rapportinhoud")).ToString
    ' Obtain the report from the string.
    Using sw As New StreamWriter(New MemoryStream())
    sw.Write(s)
    sw.Flush()
    newReport = XtraReport.FromStream(sw.BaseStream, True)

    'Goed en dan moet ik dus hier code krijgen om de button toe te voegen. van DevExpress is er wat code alleen weet ik niet hoe te implementeren.

    Dim report As New XtraReport1()
    reportDesigner1.OpenReport(report)
    Dim toolbar As Bar = xrDesignBarManager1.Toolbar
    Dim bbi As New BarButtonItem()
    bbi.Caption = "test"
    AddHandler bbi.ItemClick, AddressOf bbi_ItemClick
    toolbar.InsertItem(toolbar.ItemLinks(0), bbi)
    U bent niet geautoriseerd om een antwoord te posten


    Sponsors
    Volg ons via TwitterVolg ons op LinkedIN    Volg ons op LinkedIN    Volg ons via de RSS feed
    Copyright 2005-2016 VBcentral.nl   |  Privacybeleid  |  Gebruiksovereenkomst