mohsen gh
شنبه 29 بهمن 1390, 14:17 عصر
سلام دوستان این کدی که نوشتم فقط 1 سطر از گریدویو رو چاپ میکنه به نظر شما مشکلش چیه ؟؟؟؟:افسرده:
Dim dt4report As New DataTable
Dim c1 As New DataColumn("id")
Dim c2 As New DataColumn("Namebook")
Dim c3 As New DataColumn("isbn")
Dim c4 As New DataColumn("num1")
Dim c5 As New DataColumn("num2")
dt4report.Columns.Add(c1)
dt4report.Columns.Add(c2)
dt4report.Columns.Add(c3)
dt4report.Columns.Add(c4)
dt4report.Columns.Add(c5)
For i As Integer = 0 To Me.dgv.RowCount - 2
Dim dr As DataRow = dt4report.NewRow()
dr(1) = Me.dgv.Rows(i).Cells(1).Value.ToString()
dr(2) = Me.dgv.Rows(i).Cells(4).Value.ToString()
dr(3) = Me.dgv.Rows(i).Cells(5).Value.ToString()
dr(4) = Me.dgv.Rows(i).Cells(6).Value.ToString()
dt4report.Rows.Add(dr)
Next
Dim cr As New CrystalReport2
cr.SetDataSource(dt4report)
Frm_print.CrystalReportViewer1.ReportSource = cr
Frm_print.ShowDialog()
Dim dt4report As New DataTable
Dim c1 As New DataColumn("id")
Dim c2 As New DataColumn("Namebook")
Dim c3 As New DataColumn("isbn")
Dim c4 As New DataColumn("num1")
Dim c5 As New DataColumn("num2")
dt4report.Columns.Add(c1)
dt4report.Columns.Add(c2)
dt4report.Columns.Add(c3)
dt4report.Columns.Add(c4)
dt4report.Columns.Add(c5)
For i As Integer = 0 To Me.dgv.RowCount - 2
Dim dr As DataRow = dt4report.NewRow()
dr(1) = Me.dgv.Rows(i).Cells(1).Value.ToString()
dr(2) = Me.dgv.Rows(i).Cells(4).Value.ToString()
dr(3) = Me.dgv.Rows(i).Cells(5).Value.ToString()
dr(4) = Me.dgv.Rows(i).Cells(6).Value.ToString()
dt4report.Rows.Add(dr)
Next
Dim cr As New CrystalReport2
cr.SetDataSource(dt4report)
Frm_print.CrystalReportViewer1.ReportSource = cr
Frm_print.ShowDialog()