窗口中，删除按钮，点了后，还是没有删除。不起作用？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口中，删除订单，按钮，代码如下：（用来删除当前的订单行，和订单下的关联子：进货明细，子行）
图片点击可在新窗口打开查看

此主题相关图片如下：111.jpg

Dim cnt As Integer =Tables("采购订单.采购进货").Rows.Count

If cnt >= 0 Then

If MessageBox.Show("此订单存在" & cnt & "个订单明细,是否确定要删除?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) =DialogResult.No Then

e.Cancel = True

Else

Dim dr As Row = Tables("采购订单").Current

Dim crs As List (of DataRow) = DataTables("采购进货").Select("进货批次='" & dr("进货批次") & "'")

For Each cr As DataRow In crs

cr.Delete

Tables("采购订单").Current.Delete

End If

DataTables("采购订单").DataCols("订单金额").RaiseDataColChanged

主题：窗口中，删除按钮，点了后，还是没有删除。不起作用？