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