gibbo1715
09-16-2005, 02:06 PM
Im useing the code below to delete items from both my treeview and my worksheet, problem i now have is that i am displaying only certain items from my spreadsheet, not every row
can anyone offer me a method (Or a start of a method) of being able to delete the correct row in the spreadsheet
Thanks Gibbo
Private Sub Image3_Click()
'Delete
'Find the correct row for the correct sheet
'Make Changes to the treeview parent before actual delete to allow correct calculations
If TreeView1.SelectedItem.Parent Is Nothing Then Exit Sub
'Is this a child with information
del = Trim(Left(TreeView1.SelectedItem.Parent.Text, Application.WorksheetFunction.Find(" ", TreeView1.SelectedItem.Parent.Text, 1)))
If MsgBox("Are you sure you want to delete " & TreeView1.SelectedItem.Text, vbYesNo + vbCritical, "Confirm Delete") = vbYes Then
Sheets(del).Rows(TreeView1.SelectedItem.Index - TreeView1.SelectedItem.FirstSibling.Index + 2).Delete
TreeView1.SelectedItem.Parent.Text = Trim(Left(TreeView1.SelectedItem.Parent.Text, Application.WorksheetFunction.Find(" ", TreeView1.SelectedItem.Parent.Text, 1))) & " (" & TreeView1.SelectedItem.Parent.Children - 1 & ")"
TreeView1.Nodes.Remove (TreeView1.SelectedItem.Index)
Label1.Caption = TreeView1.Nodes.Count - 3 & " Records Found For: " & Environ("Username")
Else
Exit Sub
End If
End Sub
can anyone offer me a method (Or a start of a method) of being able to delete the correct row in the spreadsheet
Thanks Gibbo
Private Sub Image3_Click()
'Delete
'Find the correct row for the correct sheet
'Make Changes to the treeview parent before actual delete to allow correct calculations
If TreeView1.SelectedItem.Parent Is Nothing Then Exit Sub
'Is this a child with information
del = Trim(Left(TreeView1.SelectedItem.Parent.Text, Application.WorksheetFunction.Find(" ", TreeView1.SelectedItem.Parent.Text, 1)))
If MsgBox("Are you sure you want to delete " & TreeView1.SelectedItem.Text, vbYesNo + vbCritical, "Confirm Delete") = vbYes Then
Sheets(del).Rows(TreeView1.SelectedItem.Index - TreeView1.SelectedItem.FirstSibling.Index + 2).Delete
TreeView1.SelectedItem.Parent.Text = Trim(Left(TreeView1.SelectedItem.Parent.Text, Application.WorksheetFunction.Find(" ", TreeView1.SelectedItem.Parent.Text, 1))) & " (" & TreeView1.SelectedItem.Parent.Children - 1 & ")"
TreeView1.Nodes.Remove (TreeView1.SelectedItem.Index)
Label1.Caption = TreeView1.Nodes.Count - 3 & " Records Found For: " & Environ("Username")
Else
Exit Sub
End If
End Sub