For i = Me.C1TrueDBGrid4.SelectedRows.Count - 1 To 0 Step -1
Dim DVa As New DataView(dtb, "Child_Item_ID like " & "'" & C1TrueDBGrid4.Columns(0).Value & "'" & " or Parent_Item_ID like " & "'" & C1TrueDBGrid4.Columns(0).Value & "'" & "", Nothing, DataViewRowState.CurrentRows)
For X = DVa.Count - 1 To 0 Step -1
DVa.Item(X).Delete()
Next
Dim DV1 As New DataView(dtb, "", Nothing, DataViewRowState.CurrentRows)
Dim FilteredDT As DataTable
FilteredDT = DV1.ToTable
FilteredDT.TableName = "Row"
FilteredDT.WriteXml(Application.StartupPath + "\Data\LinkFiles\LinkItemUSA.xml")
Dim DVa1 As New DataView(dtc, "Item_ID like " & "'" & C1TrueDBGrid4.Columns(0).Value & "'" & "", Nothing, DataViewRowState.CurrentRows)
For X = DVa1.Count - 1 To 0 Step -1
DVa1.Item(X).Delete()
Next
Dim DV11 As New DataView(dtc, "", Nothing, DataViewRowState.CurrentRows)
Dim FilteredDT1 As DataTable
FilteredDT1 = DV11.ToTable
FilteredDT1.TableName = "Row"
FilteredDT1.WriteXml(Application.StartupPath + "\Data\LinkFiles\LinkPPFUSA.xml")
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.