主题：关于SqlTable

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

这样吧：

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