”出库数量“ <0的代码不起作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ”出库数量“ <0的代码不起作用

共有3683人关注过本帖树形打印复制链接主题：”出库数量“ <0的代码不起作用

shiliang

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00

”出库数量“ <0的代码不起作用 发帖心情

Post By：2015/6/11 11:51:00 [只看该作者]

'出库量大于库存量禁止出库,不能小于零

If e.DataCol.Name = "物料代码" Then '如果内容发生变动的是物料代码列

If e.NewValue Is Nothing Then '如果新值是空白,也就是物料代码列的内容为空

e.DataRow("出库数量") = Nothing '那么清空此行出库数量列的内容

End If

Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.DataRow("物料代码") & "'","_Identify Desc")'获得最后一行

If dg IsNot Nothing Then '如果找到了同名的物料代码行,也就是dr不是Nothing

If e.DataRow("出库数量") > dg("库存数量") Then

MessageBox.Show("出库量大于库存量!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.DataRow("出库数量") = dg("库存数量")

End If

If e.DataRow("出库数量") < 0 Then

e.DataRow("出库数量") = Nothing

End If

If e.DataRow("出库数量") < 0 Then

e.DataRow("出库数量") = Nothing

End If

这段代码不起作用。请看一下什么原因

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/11 11:55:00 [只看该作者]

加入msgbox看看执行效果

If e.DataCol.Name = "物料代码" Then '如果内容发生变动的是物料代码列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是物料代码列的内容为空
        e.DataRow("出库数量") = Nothing '那么清空此行出库数量列的内容
    End If
End If
Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.DataRow("物料代码") & "'","_Identify Desc")'获得最后一行
msgbox(1)
If dg IsNot Nothing Then '如果找到了同名的物料代码行,也就是dr不是Nothing
    msgbox(2)
    If e.DataRow("出库数量") > dg("库存数量") Then
        MessageBox.Show("出库量大于库存量!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.DataRow("出库数量") = dg("库存数量")
    End If
    If e.DataRow("出库数量") < 0 Then
        msgbox(3)
        e.DataRow("出库数量") = Nothing
    End If
End If

shiliang

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00

Post By：2015/6/11 14:02:00 [只看该作者]

MessageBox.Show 调试一下就好了

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/11 14:06:00 [只看该作者]

呃，跟msgbox没什么问题，是不是你数据有问题？

shiliang

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00

Post By：2015/6/11 15:40:00 [只看该作者]

数据没问题，只是调试一下就好了

shiliang

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00

Post By：2015/6/11 16:41:00 [只看该作者]

'已记账,不能取消审核

'----------------------------------------------

Select Case e.DataCol.name

Case "审核"

If e.DataRow("记账") = True Then

e.NewValue = True

End If

End Select

这段代码对吗

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/11 16:45:00 [只看该作者]

写到Datacolchanging事件

Select Case e.DataCol.name

Case "审核"

If e.DataRow("记账") = True Then

e.Cancel = True

End If

End Select

shiliang

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00

Post By：2015/6/11 16:49:00 [只看该作者]

谢谢！！！

shiliang

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1110 威望：0 精华：0 注册：2013/10/9 11:32:00

Post By：2015/6/11 17:37:00 [只看该作者]

'库存数量为零,不能记账

'---------------------------------------------------------

Select Case e.DataCol.name

Case "记账"

If DataTables("库存材料表").DataRows.count > 0

Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.DataRow("物料代码") & "'","_Identify Desc")'获得最后一行

If dg("库存数量") Is Nothing Then '如果找到了同名的物料代码行,也就是dr是Nothing

If e.oldvalue = False Then

' e.NewValue = False

e.Cancel = True

End If

End Select

请麻烦看一下代码有什么问题

大红袍

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/11 17:47:00 [只看该作者]

Select Case e.DataCol.name
    Case "记账"
        Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.DataRow("物料代码") & "'","_Identify Desc")'获得最后一行
        If dg IsNot Nothing Then
            If dg("库存数量") = 0 Then
                e.cancel = True
            End If
        Else
            e.cancel = True
        End If
End Select

下一主题 >> << 上一主题

总数 33 1 2 3 4 下一页

主题：”出库数量“ <0的代码不起作用