[Rabeea Qbaha]

(23-10-16, 02:57 PM)Adrees كتب : بعد التعديل الميثود ستصبح بالشكل التالي

PHP كود :

   Sub FillGridS()
        Dim cn As New SqlConnection("data source=(localdb)\v11.0;initial catalog=TestDB;integrated security=True;")
        Dim cmd = "SELECT * FROM Category"
        Dim adapter = New SqlDataAdapter(cmd, cn)
        Dim table = New DataTable()
        adapter.Fill(table)
        Me.DataGridView1.DataSource = table

        Dim cbb As New DataGridViewComboBoxColumn() With {.HeaderText = "العملة"}
        cbb.Items.Add("شيقل.ج")
        cbb.Items.Add("د.اردني")
        cbb.Items.Add("د.امريكي")
        cbb.Items.Add("يورو")
        cbb.Items.Add("ر.صيني")
        cbb.FlatStyle = FlatStyle.Flat
        'Delete Button
        Dim btnDelete As New DataGridViewButtonColumn()
        btnDelete.FlatStyle = FlatStyle.Flat
        'Image Button
        Dim btnImage As New DataGridViewButtonColumn()
        btnDelete.FlatStyle = FlatStyle.Popup


        DataGridView1.Columns.Insert(0, btnDelete)
        DataGridView1.Columns(1).HeaderText = "المبلغ المرسل"
        DataGridView1.Columns.Add(cbb)
        DataGridView1.Columns(3).HeaderText = "العمولة"
        DataGridView1.Columns(4).HeaderText = "أسم المستقبل"
        DataGridView1.Columns(5).HeaderText = "هاتف المستقبل"
        DataGridView1.Columns(6).HeaderText = "البلد المستقبل"
        DataGridView1.Columns(7).HeaderText = "أسم المرسل"
        DataGridView1.Columns(8).HeaderText = "هاتف المرسل"
        DataGridView1.Columns(9).HeaderText = "الشركة المستقبلة"
        DataGridView1.Columns(10).HeaderText = "التاريخ"
        DataGridView1.Columns.Add(btnImage)
        DataGridView1.Columns(12).HeaderText = "الملاحظات"
        DataGridView1.Columns(13).HeaderText = "ID"
        DataGridView1.Columns(13).Visible = False


        'كود خاص بتخطيط الجريد فيو
        DataGridView1.CellBorderStyle = DataGridViewCellBorderStyle.SingleHorizontal
        Me.DataGridView1.GridColor = Color.WhiteSmoke
    End Sub 


وكود الطباعة سيبقى بهذا الشكل

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim form2 = New Form2()
   Dim rds= New ReportDataSource("DataSet1", Me.DataGridView1.DataSource)
   form2.ReportViewer1.LocalReport.DataSources.Clear()
   form2.ReportViewer1.LocalReport.DataSources.Add(rds)
   form2.ReportViewer1.LocalReport.ReportEmbeddedResource = "Test.Report1.rdlc"
   form2.ShowDialog()
End Sub 


Thank you Adrees 
and sorry because i'm typing in English my keyboard don't have Arabic characters