Foxtable(狐表)用户栏目专家坐堂 → 【求助】列值第一次录入便生成数据,那么我修改列值之后,直接修改对应记录,而不是新增记录


  共有1687人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/20 9:42:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/20 9:56:00 [显示全部帖子]

 你删除记录的时候,查找对应的行,减去相应的值,不就好了?改写你的DataRowDeleting事件。

 回到顶部