13-10-12, 04:34 AM
السلام عليكم ورحمة الله وبركاته
أخواني عندما اريد ان أنقل محتوى ListView للورد لكي اطبعه يكون الكود هاكذا
ولاكن السؤال هنا أذا كان لدي DataGridView كيف أعدل الكود لكي ينقل محتوى DataGridView إلى الورد لكي أطبعه
ولكم جزيل الشكر
أخواني عندما اريد ان أنقل محتوى ListView للورد لكي اطبعه يكون الكود هاكذا
كود :
[/SIZE] With .AddTable() Dim Table2 As New Data.DataTable
Table2.Columns.Add("dCo0") 'تاريخ بداية الرخصة
Table2.Columns.Add("dCo1") 'يوم
Table2.Columns.Add("dCo2") 'مدة الرخصة
If Not ListView2.Items.Count = 0 Then
For A As Integer = 0 To ListView2.Items.Count - 1
Dim dr As DataRow = Table2.NewRow
If Not IsDate(ListView2.Items.Item(A).SubItems(0).Text) = False Then dr.Item("dCo0") = Format(CDate(ListView2.Items.Item(A).SubItems(0).Text), "dd/MM/yyyy") 'تاريخ بداية الرخصة
dr.Item("dCo1") = ListView2.Items.Item(A).SubItems(1).Text 'يوم
dr.Item("dCo2") = ListView2.Items.Item(A).SubItems(2).Text 'مدة الرخصة
Table2.Rows.Add(dr)
Next
End If
.DataTable = Table2
'-------------------------------------
.IsFirstColumnAutoNumber = False
.TableHeadBookMarkName = "الرخص"
.FirstRowBookMarkName = "بداية_صف_الرخص"
.DeleteTableIfNoData = True
'-------------------------------------
.AddTextColumn("dCo0")
.AddTextColumn("dCo1")
.AddTextColumn("dCo2")
'-------------------------------------
End With[SIZE=4]ولاكن السؤال هنا أذا كان لدي DataGridView كيف أعدل الكود لكي ينقل محتوى DataGridView إلى الورد لكي أطبعه
ولكم جزيل الشكر