منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته ،

برجاء محتاج الي كود يوضح كيفية نسخ البيانات من ملف اكسيل الي ديف اكسبريس داتا كونترول

وشكرا ...

السلام عليكم ورحمة الله وبركاته
تم الحل واليكم الكود
------------------------------------------------------
في حدث Load للفورم

Dim dt As DataTable
dt = New DataTable
dt.Columns.Clear()
GVImportData.Columns.Clear()
dt.Columns.Add("Name")
dt.Columns.Add("Status")
dt.Columns.Add("Notes")
GridControlImportData.DataSource = dt
------------------------------------------------------
اضافة Button "Paste"
Dim DD As DataRow = dt.NewRow()

Try
Dim Generar As Boolean = False
For Each line As String In Clipboard.GetText.Split(vbNewLine)
If Not line.Trim.ToString = "" Then
Dim item() As String = line.Trim.Split(vbTab)
If Generar = False Then
Generar = True
End If
dt.Rows.Add(item)
End If
Next
Clipboard.Clear()
Exit Sub
Catch ex As Exception
XtraMessageBox.Show(DevExpress.LookAndFeel.UserLookAndFeel.Default, ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
------------------------------------------------------