您所在位置：主题：重复字段的查找并赋值
bofan8687
[专家分：0] 发布于 2010-05-24 11:27:00
大家好，请教一个问题。
数据库中有两个数据表“订单”和“产品信息表”，我想把产品信息表中的“产品价格”自动赋给订单中“价格”字段，订单的主键是订单编号，但订单中有相同的产品名称，我在赋值时遇到相同的产品名称时只会给第一个赋值，请教大家。不胜感激。代码如下，我是用的DAO。
Private Sub Price()
If Data1.Recordset.RecordCount = 0 Then Exit Sub
If Data2.Recordset.EOF Then Exit Sub
Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
Data1.Recordset.FindFirst ("产品编号='" & Data2.Recordset.Fields("产品编号").Value & "'")
Data1.Recordset.Edit
Data1.Recordset.Fields("销售单价").Value = Data2.Recordset.Fields("价格").Value
Data1.Recordset.Update
Data2.Recordset.MoveNext
Loop
End Sub
数据库中有两个数据表“订单”和“产品信息表”，我想把产品信息表中的“产品价格”自动赋给订单中“价格”字段，订单的主键是订单编号，但订单中有相同的产品名称，我在赋值时遇到相同的产品名称时只会给第一个赋值，请教大家。不胜感激。代码如下，我是用的DAO。
Private Sub Price()
If Data1.Recordset.RecordCount = 0 Then Exit Sub
If Data2.Recordset.EOF Then Exit Sub
Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
Data1.Recordset.FindFirst ("产品编号='" & Data2.Recordset.Fields("产品编号").Value & "'")
Data1.Recordset.Edit
Data1.Recordset.Fields("销售单价").Value = Data2.Recordset.Fields("价格").Value
Data1.Recordset.Update
Data2.Recordset.MoveNext
Loop
End Sub