[سعود]

لحذف عمود [بنفس المثال الحالي]

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