创业计划书 销售成本计划表两个表利用计划书编号进行关联

现在新建一删除按钮（在销售成本计划窗体中） 代码如下：

拟实现删除销售成本计划表中当前编号等于创业计划书当前编号的所有数据

下面的代码已删除就删除了全部数据 求纠正！

Dim r2 As Row=Tables("创业计划书").Current
Dim r As Row = Tables("创业计划书.销售和成本计划表").Current
If r IsNot Nothing  Then        \'若当前表有词条,经过确认后,删除之
    If r("计划书编号")=r2("计划书编号")    Then
    If MessageBox.Show("是否删除该词条?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        For i As Integer = DataTables("销售和成本计划表").DataRows.count -1 To 0 Step -1
            If DataTables("销售和成本计划表").DataRows(i).RowState = DataRowState.Added Then
                DataTables("销售和成本计划表").DataRows(i).Delete
            End If
        Next
    End If
End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:创业计划书.foxdb