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

表A中的窗口
删除后，删除的内容还在表上，且表中焦点与左边树不一致。
增加后，增加的内容表中未出现。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:界面临时.table

这个问题不是说得很清楚，请把界面的载图发上来，有问题处标为红色

未保存，保存即可！

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

 

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("账套") & "'")
...

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

Tables("xxx").Refresh