منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف اظهر صورة موجودة في picturebox على التقرير مباشرة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
http://vb4arb.com/vb/showthread.php?tid=13635


شوف الموضوع يمكن يحل مشكلتك
عليك باضافة DataSet آخر للتقرير عند طريق Report Data أو Ctrl+Alt+D ومن ثم New ثم Dataset
بمعنى DataSet الذي تضيفه للتقرير هو عبارة عن جدول واحد فقط
PHP كود :
Try
 
           facture_print Label18.Text
            Dim BonDeCommonde1 
As New CrystalReportFacture1


            Dim ms 
As New System.IO.MemoryStream
            PictureBox1
.Image.Save(msSystem.Drawing.Imaging.ImageFormat.Bmp)
 
           Dim byt() As Byte ms.ToArray
            ds1
.ventefact.Rows.Add(bytLabel18.Textnom_client1adresse1tel1tvaLabel6.TextLabel10.TextDateTimePicker1.Value.Date)


 
           If conectstata 1 Then
                da 
= New SqlDataAdapter("select code_facture,nom_client,adresse,tel,tva,total_htc,total_ttc,Date1,designation_article,prix_vente,qte_vendu,htc,ttc from ventefact where code_facture= " Val(Label18.Text) & ""connectt)
 
               da.Fill(ds1.ventefact)
 
           Else
                connectt
.Open()
 
           End If
 
           ' DataGridView2.DataSource = ds1.ventefact
            BonDeCommondeShow.CrystalReportViewer1.ReportSource = BonDeCommonde1

            BonDeCommonde1.SetDataSource(ds1.Tables("ventefact"))


            ds1.ventefact.Clear()

            '
حجم العرض
            BonDeCommondeShow
.CrystalReportViewer1.Zoom(100%)
 
           'تحديث التقرير
            BonDeCommondeShow.CrystalReportViewer1.Refresh()
            BonDeCommondeShow.ShowDialog()

        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
            Exit Sub
        End Try 

تم حل المشكلة 
اشكركم جميعا ايها الاعزاء 
الصفحات : 1 2 3