[سؤال] كيفية نسخ بيانات من ملف اكسيل الي ديف اكسبريس داتا كونترول - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : تقنية البرمجة Dev Express (http://vb4arb.com/vb/forumdisplay.php?fid=201) +--- الموضوع : [سؤال] كيفية نسخ بيانات من ملف اكسيل الي ديف اكسبريس داتا كونترول (/showthread.php?tid=30070)

كيفية نسخ بيانات من ملف اكسيل الي ديف اكسبريس داتا كونترول - AymanRamadanSaad - 28-06-19 السلام عليكم ورحمة الله وبركاته ، برجاء محتاج الي كود يوضح كيفية نسخ البيانات من ملف اكسيل الي ديف اكسبريس داتا كونترول وشكرا ... RE: كيفية نسخ بيانات من ملف اكسيل الي ديف اكسبريس داتا كونترول - AymanRamadanSaad - 03-07-21 السلام عليكم ورحمة الله وبركاته تم الحل واليكم الكود ------------------------------------------------------ في حدث 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 ------------------------------------------------------