主题：删除代码

 beforeDeleteDataRow事件

Dim fdr As DataRow = DataTables("子表").Find("第一列 = '" & e.DataRow("第一列") & "' and 审核 = true")
If fdr IsNot Nothing Then
    msgbox("存在子表数据,不能删除")
    e.cancel = True
End If