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()
Next
End If
DataTables.Unload(name)
End If
Else
MessageBox.Show("你取消了这项操作.","提示")
End If
加好友 
发短信
Post By：2017/4/26 13:35:00 [显示全部帖子]
