目录树是不会自动更新的，增加删除数据后，重新生成目录树：

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
trv1.BuildTree("工资表","工资表名")

或者象这个例子一样，加个刷新按钮：

http://www.foxtable.com/help/topics/2350.htm

主要是删除后,表中还有删除的记录,怎么样能让表刷新?

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim Result As DialogResult
  Result = MessageBox.Show("你确认删除名称为" & nd.text &  "的商品吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
     If Result = DialogResult.Yes Then  \'如果对话框返回"是"
   DataTables("工资表").DeleteFor("工资表名 =\'" & nd.text & "\'and zt=\'" & vars("账套") & "\'")
           If nd IsNot Nothing Then
             nd.Delete
           End If
     Else
           MessageBox.Show("呵呵,你后悔了!.","提示")
    End If
tr.Select
DataTables("工资表").save()
DataTables("工资表").load()

既然删除了，就不会有了，你删除的代码是：

DataTables("工资表").DeleteFor("工资表名 =\'" & nd.text & "\'and zt=\'" & vars("账套") & "\'")

如果出现所谓“删除后还在”，只有一个原因，根本就没有删除,你在前面加两行代码测试：

...

Dim drs as List(of datarow) = Datatbles("工资表").Select( "工资表名 =\'" & nd.text & "\'and zt=\'" & vars("账套") & "\'")
MessageBox.show("准备删除的行数为：" & drs.Count)

DataTables("工资表").DeleteFor("工资表名 =\'" & nd.text & "\'and zt=\'" & vars("账套") & "\'")
...

实际上是删除掉了,表上还有可能是没刷新.刷新一下,就没了.我想在代码中刷新一下,不知怎么弄?