[求助]增加或删除后，表中不显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]增加或删除后，表中不显示

共有9112人关注过本帖树形打印复制链接主题：[求助]增加或删除后，表中不显示

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/9/3 8:14:00 [显示全部帖子]

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

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

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

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/9/3 10:44:00 [显示全部帖子]

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

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

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/9/3 11:09:00 [显示全部帖子]

Tables("xxx").Refresh

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