主题：请教问题 如何达到这样的结果？

如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

可以让产品编号和产品序列号不一样的。

不错

就是删除的话 没反应

你说的是删除产品表，不可能没反应。

是这样的 删除进货单记录 ，库存金额没有变化 不知道在哪里设置

好了 Dim filter As String = "产品编码 ='" & e.DataRow("产品编码") & "'  And 颜色 ='" & e.DataRow("颜色") & "' "
   Dim dr As DataRow= DataTables("库存表").Find(filter)
    If dr IsNot Nothing Then
    dr.Delete()
End If

你在 DataRowDeleted 事件写入代码

Dim filter As String = "产品编码 ='" & e.DataRow("产品编码") & "'  And 颜色 ='" & e.DataRow("颜色") & "' "
Dim fdr As DataRow = DataTables("库存表").Find(filter)
fdr("金额") -= e.DataRow("金额")

fdr("金额") -= e.DataRow("金额")
是不是写错了

 没写错，测试有效。

 等价于 fdr("金额") = fdr("金额")  - e.DataRow("金额")

Dim filter As String = "产品编码 ='" & e.DataRow("产品编码") & "'  And 颜色 ='" & e.DataRow("颜色") & "' "
   Dim dr As DataRow= DataTables("库存表").Find(filter)
    If dr IsNot Nothing Then
    dr.Delete()
End If

这段代码放在 DataRowDeleting事件中 是不是一样效果