以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于老朱“关于网络多人应用处理库存的例子 ”求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34973)

--  作者:hrc11
--  发布时间:2013/6/20 20:03:00
--  关于老朱“关于网络多人应用处理库存的例子 ”求助

学习老朱例子做库存管理,但出现情况。在没保存的情况下,或修改后撤消修改时,DataColChanging事件不会动作,结果出库数量不准确。请问怎么处理?请大家指教。谢谢。

 

 

例子连接http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=29462&replyID=&skin=1

 

DataColChanging事件

If e.DataCol.Name = "出库数量" Then
    Dim dr As DataRow = e.DataRow
    Dim pf As String
    pf = e.DataRow("产品名称")
    Dim cmd1 As New SQLCommand
    Dim cmd2 As New SQLCommand
    Dim Key As Integer
    cmd1.C
    cmd2.C
    If pf > "" Then
        cmd1.commandText = "Select [库存数量] From [库存表] Where [产品名称] = \'" & pf & "\'"
        Key = cmd1.ExecuteScalar() \'从后台获得顺序号
        e.DataRow("目前库存数")=key
        If key <= e.NewValue Then
            MessageBox.Show("库存数不够,不能发货!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
            e.Cancel =True
        Else
            cmd2.commandText = "Update [库存表] Set [库存数量] = " & (Key - e.NewValue) & " Where [产品名称] = \'" & pf & "\'"
            If cmd2.ExecuteNonQuery() > 0 Then \'更新顺序号
                MessageBox.Show("库存更新成功!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
            End If
            Return
        End If
    End If
End If


--  作者:jianjingmaoyi
--  发布时间:2013/6/20 20:42:00
--  
这个应该是保存是才执行的吧,撤销是未保存的动作.
[此贴子已经被作者于2013-6-20 20:42:05编辑过]

--  作者:hrc11
--  发布时间:2013/6/21 10:50:00
--  

有人有空帮忙指导下吗?