你应该去写datarowDeleting事件吧?
Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}For Each s As String In ary DataTables(s).DeleteFor("产品编号= '" & e.DataRow("产品编号") & "'")Next