+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] استخدام شبيكة بيانات واحدة لاكثر من .... تعال وشوف كيف (/showthread.php?tid=40254)
استخدام شبيكة بيانات واحدة لاكثر من .... تعال وشوف كيف - سعود - 15-12-21
باستخدام الاداة
HtmlAgilityPack
هذا فقط ادارة الشبيكة وليس الاضافة لها صفوف
ممكن يكون فورم اضافي يقوم بهذه المهمة
اضفه الى مشروعك واضف زر و عدل على الفكرة لتراها مناسبة لعملك.
صباح الخير
15/12/2021
06:12 am
RE: استخدام شبيكة بيانات واحدة لاكثر من .... تعال وشوف كيف - alfaiz678 - 15-12-21
دائما مشاركاتك نافعة
وفقك الله
RE: استخدام شبيكة بيانات واحدة لاكثر من .... تعال وشوف كيف - سعود - 15-12-21
(15-12-21, 09:32 PM)alfaiz678 كتب : دائما مشاركاتك نافعة
وفقك الله
من بعدكم بارك الله فيكم جميعا.
RE: استخدام شبيكة بيانات واحدة لاكثر من .... تعال وشوف كيف - سعود - 15-12-21
لحذف عمود [بنفس المثال الحالي]
PHP كود :
Dim d As DataGridView = DirectCast(Panel1.Controls(0), DataGridView)
Dim c As DataGridViewColumn
c = DirectCast(d.Columns(d.CurrentCell.ColumnIndex), DataGridViewColumn)
doc = New HtmlAgilityPack.HtmlDocument
doc.Load(dbpath)
Dim gridid As Integer = dids(cmbdgvs.SelectedIndex)
Dim nod As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//dgvs//dgv[@id='" & gridid & "']//coll")
For Each h As HtmlAgilityPack.HtmlAttribute In nod.Attributes
If h.Value.ToString.ToLower = c.HeaderText.ToString.ToLower Then
nod.Attributes.Remove(h)
doc.Save(dbpath)
gd(cmbdgvs.SelectedIndex)
Exit Sub
End If
Next