datarowdeleting事件,写如下代码
msgbox("不符合项编号='" & e.DataRow("报告单编号") & "'")DataTables("公司不符合项管理表").deletefor("不符合项编号='" & e.DataRow("报告单编号") & "'")