学着走 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 学着走

共有1488人关注过本帖树形打印复制链接主题：学着走

3232121table

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

加好友

发短信

等级：幼狐帖子：102 积分：966 威望：0 精华：0 注册：2015/10/1 16:23:00

学着走

Post By：2017/4/26 13:35:00 [只看该作者]

老师下面的代码是删除一个（name）表和Tree表中的符合条件行，总报警：不存在名称为“已售件”的datatable 。不要黑体的代码时，比较正常，但表还在那，重打开项目后该表才消失。请问错在那

Dim name As String = trv.SelectedNode.Text

Dim Result As DialogResult

Result = MessageBox.Show("删除后数据不可恢复!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.question)

If Result = DialogResult.Yes Then

If DataTables.Contains(name) Then

Dim Builder As New ADOXBuilder

Builder.Open()

With Builder

.DeleteTable(name)

End With

Builder.Close()

Dim nd As WinForm.TreeNode = trv.SelectedNode

nd.Delete()

Dim lit As List(of DataRow) = DataTables("tree").Select("货物 = '" & name & "'" )

If lit IsNot Nothing Then

For Each li As DataRow In lit

li.Delete()

End If

DataTables.Unload(name)

End If

Else

MessageBox.Show("你取消了这项操作.","提示")

End If

[此贴子已经被作者于2017/4/26 13:35:58编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/26 14:21:00 [只看该作者]

我用这段代码测试，没有问题

你具体的问题，做个实例上来看看。

Dim name As String = CurrentTable.Name
Dim Result As DialogResult
Result = MessageBox.Show("删除后数据不可恢复!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.question)
If Result = DialogResult.Yes Then
    If DataTables.Contains(name) Then
        Dim Builder As New ADOXBuilder
        Builder.Open()
        With Builder
            .DeleteTable(name)
        End With
        Builder.Close()
        DataTables.Unload(name)
    End If
Else
    MessageBox.Show("你取消了这项操作.","提示")
End If

3232121table

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

加好友

发短信

等级：幼狐帖子：102 积分：966 威望：0 精华：0 注册：2015/10/1 16:23:00

Post By：2017/4/26 16:50:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目test.rar

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/26 17:05:00 [只看该作者]

你窗口引用了表，删除后自然会报错，加上红色代码

Tables("商品信息_Table1").DataSource = DataTables("主窗口")

DataTables.Unload(name)

下一主题 >> << 上一主题

主题：学着走