【求助】列值第一次录入便生成数据，那么我修改列值之后，直接修改对应记录，而不是新增记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

【求助】列值第一次录入便生成数据，那么我修改列值之后，直接修改对应记录，而不是新增记录

代码如下：

Select Case e.DataCol.Name

Case "单价"

If e.DataCol.Name = "单价" Then

e.DataRow("金额")=e.DataRow("单价")*e.DataRow("数量")

End If

Case "数量"

If e.DataCol.Name = "数量" Then

e.DataRow("金额")=e.DataRow("单价")*e.DataRow("数量")

'以下是当数量列发生变动时候，写入信息到货物库存表里

Tables("货物库存").AddNew()

Tables("货物库存").Current("货名")= e.DataRow("货名")

Tables("货物库存").Current("出库数量")= e.DataRow("数量")

Tables("货物库存").Current("出库日期")= e.DataRow("订单日期")

Tables("货物库存").Current("出库编号")= e.DataRow("销售年编号")

'怎么实现在数量被我修改后，顺利实行下面代码呢？而不是新增一条记录！

Dim pr As DataRow

pr = DataTables("货物库存").Find("货名 = '" & e.DataRow("货名") & "' And 出库编号 = '" & e.DataRow("销售年编号") & "'")

If pr IsNot Nothing Then

pr("出库数量")= pr("出库数量") + e.NewValue - e.OldValue

End If

End Select

[此贴子已经被作者于2017/6/20 9:26:17编辑过]

Select Case e.DataCol.Name
    Case "单价"
        If e.DataCol.Name = "单价" Then
            e.DataRow("金额")=e.DataRow("单价")*e.DataRow("数量")
        End If
    Case "数量"
        If e.DataCol.Name = "数量" Then
            Dim pr As DataRow
            pr = DataTables("货物库存").Find("货名 = '" & e.DataRow("货名") & "' And 出库编号 = '" & e.DataRow("销售年编号") & "'")
            If pr IsNot Nothing Then
                pr("出库数量")= pr("出库数量") + e.NewValue - e.OldValue
            Else
                e.DataRow("金额")=e.DataRow("单价")*e.DataRow("数量")
                '以下是当数量列发生变动时候,写入信息到货物库存表里
                Dim nr As Row = Tables("货物库存").AddNew()
                nr("货名")= e.DataRow("货名")
                nr("出库数量")= e.DataRow("数量")
                nr("出库日期")= e.DataRow("订单日期")
                nr("出库编号")= e.DataRow("销售年编号")
            End If
        End If
End Select