主题：[求助]增加或删除后，表中不显示

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

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()

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