以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]父行代码,哪错了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45541)
--  作者：zyys2813
--  发布时间：2014/1/30 14:56:00
--  [求助]父行代码,哪错了
先祝各位马年吉祥,合家幸福,万事如意.

出库与与入库表通过"制品编号"建立了关联,要在出库表中录入"出库数量"时,检查一下入库表中的"库存",应该怎么写,我参照帮助写的下面的出错
If e.DataCol.Name = "出库数量" Then
    Dim dr As DataRow = DataTables("入库").Datarows(0)
    Dim pr As DataRow = dr.GetParentRow("制品编号")
    Dim kcsl As Integer = pr("库存数量")
    If e.DataRow("出库数量") IsNot Nothing Then
        Dim cksl As Integer = e.DataRow("出库数量")
        If cksl > kcsl Then
            MessageBox.show("出库数量大于库存数量!")
        End If
    End If
End If
--  作者：jsq96jg
--  发布时间：2014/1/30 15:23:00
--  

第5行，改成

    If e.DataRow("出库数量") <>0 then,试试
--  作者：zyys2813
--  发布时间：2014/1/30 15:32:00
--  
代码修改成这样,但不提示
If e.DataCol.Name = "出库数量" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("入库")
    Dim kcsl As Integer = pr("库存数量")
    Dim cksl As Integer = CurrentTable.Current("出库数量")
    If cksl > kcsl Then
        MessageBox.show("出库数量大于库存数量!")
        CurrentTable.Current("出库数量") = nothing
    End If
End If
[此贴子已经被作者于2014-1-30 15:46:04编辑过]