主题：为什么代码不起作用

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 Is Nothing Then '如果找到了同名的物料代码行,也就是dr不是Nothing
                'msgbox("在库存没找到物料")
                'e.Cancel = True
                e.NewValue = Nothing
            Else
               
                If e.DataRow("出库数量") <= 0 Then
                    e.DataRow("出库数量") = Nothing
                ElseIf  e.DataRow("出库数量") >= dg("库存数量") Then
                    'MsgBox("出库量不能大于库存量!")
                    e.DataRow("出库数量") = dg("库存数量")
                End If
            End If
        End If
    Case "出库数量"
        Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.DataRow("物料代码") & "'","_Identify Desc")'获得最后一行
        If dg Is Nothing Then '如果找到了同名的物料代码行,也就是dr不是Nothing
            'msgbox("在库存没找到物料")
            'e.Cancel = True
            e.NewValue = Nothing
        Else
           
            If e.newvalue <= 0 Then
                e.newValue = Nothing
            ElseIf  e.newvalue >= dg("库存数量") Then
                'MsgBox("出库量不能大于库存量!")
                e.newvalue = dg("库存数量")
            End If
        End If
       
End Select

谢谢！！！

新的出库数量与未记账的出库数量之和不能大于库存量，该如写代码

Case "记账"

此主题相关图片如下：qq图片20150615151003.png

提示错误

 

Case "记账"
        Dim Sun As Integer
        Sun =  DataTables("材料发放明细表").Compute("Sum(出库数量)", "[物料代码] = '" & e.DataRow("物料代码") & "'")
        If e.DataRow("记账") = False Then
            If sun >= e.DataRow("库存数量") Then
                MsgBox("出库量不能大于库存量!")
                e.Cancel = True
            End If
        End If
End Selec