到删除事件DataRowDeleting写代码处理
Dim pr As DataRow
Dim Filter As String = "[产品名称] = '" & e.DataRow("产品名称") & "' and 规格型号='" & e.DataRow("规格型号") & "' and 开向='" & e.DataRow("开向") & "'"
pr = DataTables("成品库存").Find(Filter)
If pr IsNot Nothing Then
e.DataRow("产品名称") = Nothing
DataTables("成品库存").DataCols("产品名称").RaiseDataColChanged(pr)
End If