تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المساعدة في طباعة تقرير بعد البحث
#1
السلام عليكم
اعمل على برنامج فيجوال بيسك بعد عملية بحث بين تاريخين اريد اظهار نتيجة في داتا قريد الى حد هنا توفقت والحمد لله مشكلتي ان لمر الطباعة لا يقوم بطلاعة ماظهر في الداتا قريد وانما كل معطيات قاعدة البيانات .
الرجاء مساعدتي ان امكن لتعديل كود الطباعة:
Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click
Dim cnStr As String, cmdText As String

cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\base_issam.mdb"
Dim cn As New OleDbConnection(cnStr)
Dim dt As New DataTable("calcul")
Try
cn.Open()


cmdText = "SELECT * FROM calcul where [DateDep] between format(#" & DateTimePicker3.Value.Date & "#,'mm/dd/YYYY') and format(#" & DateTimePicker2.Value.Date & "#,'mm/dd/YYYY')"
'MsgBox(cmdText)
'Exit Sub
cmd = New OleDbCommand(cmdText, cn)
dr = cmd.ExecuteReader()
If dr.HasRows Then
dt.Load(dr)
End If
dr.Close()

DataGridView1.DataSource = dt

DataGridView1.RowHeadersVisible = False

DataGridView1.Columns(0).HeaderText = "id"
DataGridView1.Columns(1).HeaderText = "DateDep"
DataGridView1.Columns(2).HeaderText = "Description"
DataGridView1.Columns(3).HeaderText = "type"
DataGridView1.Columns(4).HeaderText = "depences_recette"
DataGridView1.Columns(5).HeaderText = "recettes"
DataGridView1.Columns(6).HeaderText = "dépences"

DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

''**********************************************************
Catch ex As Exception
MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
cn.Close()
cn = Nothing
End Try
End Sub
'---------------------------------------------------------------------------------------------

Private Sub PrintGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintGrid.Click




Dim t As DataTable
Dim dr As DataRow

Dim i As Int16 = 0
Do While i < DataGridView1.Rows.Count - 1
t = ds.Tables("Calcul")
dr = t.NewRow
If DataGridView1.Rows(i).Cells(0).Value <> Nothing Then dr(0) = DataGridView1.Rows(i).Cells(0).Value.ToString
If DataGridView1.Rows(i).Cells(1).Value <> Nothing Then dr(1) = DataGridView1.Rows(i).Cells(1).Value.ToString
If DataGridView1.Rows(i).Cells(2).Value <> Nothing Then dr(2) = DataGridView1.Rows(i).Cells(2).Value.ToString
If DataGridView1.Rows(i).Cells(3).Value <> Nothing Then dr(3) = DataGridView1.Rows(i).Cells(3).Value.ToString
If DataGridView1.Rows(i).Cells(4).Value <> Nothing Then dr(4) = DataGridView1.Rows(i).Cells(4).Value.ToString
If DataGridView1.Rows(i).Cells(5).Value <> Nothing Then dr(5) = DataGridView1.Rows(i).Cells(5).Value.ToString

i += 1
Loop


Dim fr1 As New frmprintcalcul
Dim Rep As New Calcul
Rep.Database.Tables(0).SetDataSource(DS)
fr1.CrystalReportViewer1.ReportSource = Rep
fr1.Show()

End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طباعة التقرير مباشرة بالكود AHMED SHARAF 1 92 24-09-17, 04:31 PM
آخر رد: wale90
  تقرير مستندات محاسبية ibraheam 0 70 28-08-17, 06:51 PM
آخر رد: ibraheam
  عمل تقرير يظهر نتيجة الطالب في مواد الفصل القيصر بيلا 0 87 16-08-17, 09:09 PM
آخر رد: القيصر بيلا
Photo عمل تقرير يظهر نتيجة الطالب في مواد الفصل القيصر بيلا 0 61 16-08-17, 09:08 PM
آخر رد: القيصر بيلا
  مساعدة في إنشاء تقرير لطباعة الصكوك ndjakoub 0 88 24-07-17, 05:53 PM
آخر رد: ndjakoub
  [VB.NET] ارجو المساعدة في عمل هذا البرنامج ولكم جزيل الشكر والتقدير abdohassan 0 112 28-06-17, 11:24 PM
آخر رد: abdohassan
  [سؤال] كيف يمكن إرسال الصورة الموجودة داخل PictureBox1 إلى تقرير الكريستال ريبورت matrixmas 0 127 20-06-17, 11:51 PM
آخر رد: matrixmas
  [سؤال] مشكله فى عرض تقرير الفاتورة احمد عبد الحكيم 7 343 07-06-17, 03:00 AM
آخر رد: mstfa1991
  طباعة التقرير aftfm 7 326 18-05-17, 05:30 PM
آخر رد: alma2
  تنسيق تقرير الكريستال ريبورت aftfm 0 281 16-02-17, 01:39 PM
آخر رد: aftfm

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم