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

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

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  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:hjkscbhs.rar             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

22楼的代码在Datacolchanged事件中也不起作用，在Datacolchanging中是按23楼的代码写的，但也没作用，就在我在22楼发的例子中

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

麻烦你看一下我发的例子，确实没有作用

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

什么都没有，提示也没有

 1、看23楼；

 

 2、在表格输入物料代码啊，我测试没有问题啊

Else