主题：关于SqlTable

窗口中加入了一张SqlTable,删除按钮代码如下，点击删除可以删除，但重新打开窗口数据依然存在，何故？

'删除
Dim Result As DialogResult
Result = MessageBox.Show("确认是否真的要删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Tables("会计科目_Table1").Current.Delete
End If

此主题相关图片如下：qq截图未命名.png

你删除了，有没有保存，当然是存在的。

这样吧：

Dim Result As DialogResult
Result = MessageBox.Show("确认是否真的要删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
     Tables("会计科目_Table1").Current.Delete

     Tables("会计科目_Table1").DataTable.Save()
End If