تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اظهر صورة موجودة في picturebox على التقرير مباشرة
#21
http://vb4arb.com/vb/showthread.php?tid=13635


شوف الموضوع يمكن يحل مشكلتك
الرد }}}
تم الشكر بواسطة: samawi , samawi
#22
عليك باضافة DataSet آخر للتقرير عند طريق Report Data أو Ctrl+Alt+D ومن ثم New ثم Dataset
بمعنى DataSet الذي تضيفه للتقرير هو عبارة عن جدول واحد فقط
الرد }}}
تم الشكر بواسطة: samawi , samawi
#23
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 ) ضيف كريم