主题：删除记录的代码问题

        Filter = Filter &   "回路号 = '" & .Value &   "'"

        Tables("报警设备定义").Filter = Filter

msgbox(Tables("报警设备定义").rows.count) ‘’有几行数据？

        Dim dr As DataRow

        dr = DataTables("报警设备定义").Find(Filter) '这一句代码没有任何用处

        Dim Result As DialogResult

        Result = MessageBox.Show("你确定要删除该回路的所有数据吗?", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)

        If Result = DialogResult.Yes Then

msgbox("回路号 = '" & .Value &   "'") ‘这个表已经加载的数据是否有符合这个条件的数据？

            DataTables("报警设备定义").DeleteFor("回路号 = '" & .Value &   "'")

        Else

            MessageBox.Show("请及时保存修改的数据!","提示")

        End If

    End   If

End   With