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

 

我有一个小项目：

数据库结果如下

 

产品目录表

分类编码() ----> 字符型(16)
分类名称() ----> 字符型(16)
产品编码() ----> 字符型(16)
产品名称() ----> 字符型(16)

库存表

分类编码() ----> 字符型(16)
分类名称() ----> 字符型(16)
产品编码() ----> 字符型(16)
产品名称() ----> 字符型(16)
颜色() ----> 字符型(16)
金额() ----> 双精度小数

进货单

分类编码() ----> 字符型(16)
分类名称() ----> 字符型(16)
产品编码() ----> 字符型(16)
产品名称() ----> 字符型(16)
颜色() ----> 字符型(16)
金额() ----> 双精度小数

颜色

颜色() ----> 字符型(16)

 

 

 

 

此主题相关图片如下：qq图片20140819134605.jpg


此主题相关图片如下：qq图片20140819134712.png

 

各个表没有建立关联
现在要求

1、在进货表增加一个产品，库存表对应也增加此产品，并且金额也相应增加
2、在产品表删除一个产品，库存表对应也删除此产品。
3、在产品表更改某产品的产品编号、产品名称 颜色后，库存表也能同步修改。包括金额   

 

 

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

点击浏览该文件:管理项目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

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事件中 是不是一样效果

 

明白

多谢了

就是不知道 DataRowDeleting事件和DataRowDeleted事件的真正区别 我看一样的