Imports System

Imports System.Convert

Imports System.Collections.Generic

Imports System.Data

Imports System.Xml

​

Public Module Module1

    Public Sub Main()

        Dim dt as new DataTable

        dt.Columns.Add("id", gettype(integer))

        dt.Columns.Add("parent", gettype(string))

        Dim list as new List(of datarow)

        dim row as DataRow = dt.NewRow()

        row = dt.NewRow()

        row("id") = 130

        row("parent") = "-1"

        list.add(row)

        row = dt.NewRow()

        row("id") = 131

        row("parent") = "130"

        list.add(row)

        row = dt.NewRow()

        row("id") = 132

        row("parent") = "131"

        list.add(row)

        row = dt.NewRow()

        row("id") = 133

        row("parent") = "131"

        list.add(row)

        row = dt.NewRow()

        row("id") = 134

        row("parent") = "132"

        list.add(row)

        row = dt.NewRow()

        row("id") = 135

        row("parent") = "131"

        list.add(row)

        row = dt.NewRow()

        row("id") = 136

        row("parent") = "132"

        list.add(row)

        row = dt.NewRow()

        row("id") = 137

        row("parent") = "136"

        list.add(row)

        row = dt.NewRow()

        row("id") = 138

        row("parent") = "136"

        list.add(row)

        row = dt.NewRow()

        row("id") = 139

        row("parent") = "136"

        list.add(row)

        row = dt.NewRow()

        row("id") = 143

        row("parent") = "136"

        list.add(row)

        Remover.RemoveRecursive(list, "132")

        for each resRow as DataRow in list

            Console.WriteLine(resRow("id"))

        next

    End Sub

End Module

​

Public Class Remover

    Public Shared Function RemoveRecursive(ByRef values As List(Of DataRow), value As String) As List(Of DataRow)

        For index As Integer = values.Count - 1 To 0 Step -1

    If Not IsDBNull(values(index)("parent")) AndAlso (values(index)("parent") = value OrElse values(index)("id") = value) Then

                Dim newValue as integer = values(index)("id").ToString()

                values.RemoveAt(index)

                RemoveRecursive(values, newValue)

            End If

        Next

        Return values

    End Function

End Class