Vb.net Xtrareport

الكود الذي تم كتابته

Imports System.Data.OleDb
Imports DevExpress.XtraReports.UI
Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.Rows.Clear()
For i = 0 To 20
DataGridView1.Rows.Add("Field" & i, Now, i)
Next
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dt As New DataTable("Table1")
With dt
.Columns.Add("aa")
.Columns.Add("bb")
.Columns.Add("cc")
End With
dt.Rows.Clear()
With DataGridView1
For i = 0 To .Rows.Count - 1
dt.Rows.Add(.Rows(i).Cells(0).Value, .Rows(i).Cells(1).Value, .Rows(i).Cells(2).Value)
Next
End With
Dim adapter As New OleDbDataAdapter
Dim report As New XtraReport1
report.DataSource = dt
report.DataAdapter = adapter
report.DataMember = "Table1"
Dim tool As ReportPrintTool = New ReportPrintTool(report)
report.CreateDocument()
report.ShowPreview()
End Sub
End Class

[Ahmedsaid-fzue]

بارك الله فيك وجزاك الله كل خير ...فضلا احتاج مساعدة مشابهة للمثال هل يمكن ارسال وسيلة للتواصل علي الفيسبوك او الواتساب فضلا ؟

[Ahmedsaid-fzue]

السلام عليكم فضلا عندي مشكلة عند كتابة ارقام في الجريد كنترول تيجي في التقرير بدون فواصل علما انني وضعت الصيغة {0:n2} في formatstring لكن لا تعمل كيف يمكن جعل الأرقام تأتي مع الفواصل وشكراً

[برامجتيوب-ثل]

عندي مشكله عندي برامترات عددهم أثنين كاتب له كود يقرأ القيمة من أعدات البرنامج لكن لما أشغل يظهر لي قئمة يقولي أدخل قيم البرمترات كيف أخفي هاذي القائمة وأخليه يعتمد على الكود