08-03-14, 10:48 AM
08-03-14, 10:52 AM
طيب قول لنا اولا ما هو نوع التقرير الذي تستخدمه ؟ 
وما نوع طريقة الربط ؟
وبإذن الله محلوله مقدماً ...
وما نوع طريقة الربط ؟
وبإذن الله محلوله مقدماً ...
08-03-14, 12:39 PM
شكرا للرد اخي الكريم
كريستال ريبورت
داتا سيت
شكرا للرد مرة ثانية اخي الكريم
هل يمكن توسيع السطر برمجيا في التقرير ايضا
كريستال ريبورت
داتا سيت
شكرا للرد مرة ثانية اخي الكريم
هل يمكن توسيع السطر برمجيا في التقرير ايضا
08-03-14, 12:52 PM
مثال صغير
Dim dt As New DataTable
With dt
.Columns.Add("cod")
.Columns.Add("item")
End With
For Each dr As DataGridViewRow In Me.DataGrid1.Rows
Dim c As String = dr.Cells(0).Style.BackColor.Name
Dim cf As String = dr.Cells(0).Style.ForeColor.Name
dt.Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value)
Next
Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New Crystalnameaccount
rptDoc.SetDataSource(dt)
reportchang.CrystalReportViewer1.ReportSource = rptDoc
reportchang.ShowDialog()
reportchang.Dispose()
Dim dt As New DataTable
With dt
.Columns.Add("cod")
.Columns.Add("item")
End With
For Each dr As DataGridViewRow In Me.DataGrid1.Rows
Dim c As String = dr.Cells(0).Style.BackColor.Name
Dim cf As String = dr.Cells(0).Style.ForeColor.Name
dt.Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value)
Next
Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New Crystalnameaccount
rptDoc.SetDataSource(dt)
reportchang.CrystalReportViewer1.ReportSource = rptDoc
reportchang.ShowDialog()
reportchang.Dispose()
10-03-14, 11:49 AM
السلام عليكم كيفية التحكم بابعاد الحقول بالطباعة
11-03-14, 11:55 AM
السلام عليكم
استخدم هذا الكود لطباعة الداتا جرد الموجودة في الفورم
* ثم قم بانشاء Form جديد واضف اليه crystall report Veiwer من ال Tools
* من ال properties الخاصة بال crystall report veiwer قم باضافة كريستال ريبورت وختر Blank report
* افتح الcrystall report ثم اذهب الfiled explore ثم "right click " على Data base filed اختر Data base expert
*أضف ال جدول الموجود بال Data set او ال database ثم اختر ok
*اذهب مرة اخرى الى ال filed explore ثم database "+" ثم اسحب الحقول الى ال Detail Section
*الان تستطيع التحكم بالحقول "مثل الword"
*انظر الصور المرفقة للتوضيح
*الان اضف كود الطباعة في الفورم الجديد
استخدم هذا الكود لطباعة الداتا جرد الموجودة في الفورم
كود :
Imports CrystalDecisions.CrystalReports.Engine
Public dt As DataTable
private sub print
dt = New DataTable
dt.TableName = "grid"
dt.Columns.Clear()
If Label1.Text = "1" Then
Dim NUM As DataColumn = New DataColumn("NUM")
NUM.DataType = System.Type.GetType("System.String")
dt.Columns.Add(NUM)
Dim Name As DataColumn = New DataColumn("Name")
Name.DataType = System.Type.GetType("System.String")
dt.Columns.Add(Name)
Dim TS As DataColumn = New DataColumn("T-S")
TS.DataType = System.Type.GetType("System.String")
dt.Columns.Add(TS)
Dim TF As DataColumn = New DataColumn("T-F")
TF.DataType = System.Type.GetType("System.String")
dt.Columns.Add(TF)
Dim TM As DataColumn = New DataColumn("T-M")
TM.DataType = System.Type.GetType("System.String")
dt.Columns.Add(TM)
Dim Note As DataColumn = New DataColumn("Note")
Note.DataType = System.Type.GetType("System.String")
dt.Columns.Add(Note)
Dim by As DataColumn = New DataColumn("by")
by.DataType = System.Type.GetType("System.String")
dt.Columns.Add(by)
End If
Dim count As Integer = 0
Dim dr As DataRow
Dim i As Integer
For i = 0 To Studant2DataGridView.Rows.Count - 1
dr = dt.Rows.Add
If Label1.Text = "1" Then
dr.Item("NUM") = Me.Studant2DataGridView.Item(0, i).Value.ToString
dr.Item("Name") = Me.Studant2DataGridView.Item(1, i).Value.ToString
dr.Item("T-S") = Me.Studant2DataGridView.Item(7, i).Value.ToString
dr.Item("T-F") = Me.Studant2DataGridView.Item(8, i).Value.ToString
dr.Item("T-M") = Me.Studant2DataGridView.Item(9, i).Value.ToString
dr.Item("Note") = Me.Studant2DataGridView.Item(23, i).Value.ToString
dr.Item("by") = Me.Studant2DataGridView.Item(25, i).Value.ToString
printphone.print(dt)
printphone.Show()
end sub* ثم قم بانشاء Form جديد واضف اليه crystall report Veiwer من ال Tools
* من ال properties الخاصة بال crystall report veiwer قم باضافة كريستال ريبورت وختر Blank report
* افتح الcrystall report ثم اذهب الfiled explore ثم "right click " على Data base filed اختر Data base expert
*أضف ال جدول الموجود بال Data set او ال database ثم اختر ok
*اذهب مرة اخرى الى ال filed explore ثم database "+" ثم اسحب الحقول الى ال Detail Section
*الان تستطيع التحكم بالحقول "مثل الword"
*انظر الصور المرفقة للتوضيح
*الان اضف كود الطباعة في الفورم الجديد
كود :
Imports CrystalDecisions.CrystalReports.Engine
Public Class printinfo
Public Function print(ByVal dt As DataTable)
Dim e1 As New CrystalReportinfo
e1.SetDataSource(dt)
CrystalReportViewer1.ReportSource = e1
Me.CrystalReportViewer1.RefreshReport()
Return Nothing
End Function15-03-14, 10:30 AM
شكرا للرد اخي الكريم ولكن هل يستطيع المستخدم التحكم بابعاد الحقول