المشاركات : 14
المواضيع 5
الإنتساب : Jun 2017
السمعة :
0
الشكر: 0
تم شكره 14 مرات في 9 مشاركات
السلام عليكم ورحمة الله وبركاته ،
برجاء محتاج الي كود يوضح كيفية نسخ البيانات من ملف اكسيل الي ديف اكسبريس داتا كونترول
وشكرا ...
المشاركات : 14
المواضيع 5
الإنتساب : Jun 2017
السمعة :
0
الشكر: 0
تم شكره 14 مرات في 9 مشاركات
السلام عليكم ورحمة الله وبركاته
تم الحل واليكم الكود
------------------------------------------------------
في حدث 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
------------------------------------------------------