主题：删除一行数据，保存后,目录树怎么更新？

Dim t As Table = Tables("主表")

t.current.save

Dim trv As WinForm.TreeView = Forms("主窗口").Controls("TreeView1")

Dim p As object = trv

Dim cs() As String = {"功能主题", "分类", "工作项目"}

For Each c As String In cs

    If p.Nodes.Contains(t.current(c)) Then

        p = p.Nodes(t.current(c))

    Else

        p = p.nodes.Add(t.current(c))

    End If

Next

MessageBox.Show("保存成功")

或者这个代码：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("主表","工作项目|分类|功能主题")

这段代码加到，删除行，按钮代码那个位置才对呢？指点一下

试过都不行，搞不定