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

加入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

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

写到Datacolchanging事件

 

   Select Case e.DataCol.name

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

Select Case e.DataCol.name
    Case "记账"
        If DataTables("库存材料表").DataRows.count = 0 Then
            e.NewValue = False
        End If
       
        'If DataTables("库存材料表").DataRows.count > 0
        Dim wldm As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.DataRow("物料代码") & "'","_Identify Desc")'获得最后一行
        If wldm IsNot Nothing Then
            If wldm("库存数量") < e.DataRow("出库数量") Then '如果找到了同名的物料代码行,也就是dr是Nothing
                ' e.NewValue = True
                e.NewValue =False
                'e.Cancel = True
            End If
        Else
            e.NewValue = False
        End If
        ' End If
End Select

Select Case e.DataCol.name
    Case "物料代码"
        'If e.DataCol.Name = "物料代码" Then '如果内容发生变动的是物料代码列
        If e.NewValue Is Nothing Then '如果新值是空白,也就是物料代码列的内容为空
            msgbox("物料代码为空")
            e.DataRow("出库数量") = Nothing '那么清空此行出库数量列的内容
            'End If
        Else
            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("库存数量")
                Else
                    msgbox("出库没有大于库存")
                End If
            Else
                msgbox("在库存没找到物料")
            End If
        End If
End Select

 不明白你想说什么，上传具体例子说明什么没有用。

22楼代码要写到Datacolchanged事件

 

如果要写到Datacolchanging事件，这样写

 

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

 不可能没有作用啊，你填写 物料代码 以后，肯定会触发某一种情况的啊。

 不 可 能 没作用啊。填入肯定弹出某一个提示窗口啊。