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

Dim dms As List(Of String)
dms = DataTables("材料发放明细表").GetValues("物料代码")
For Each dm As String In dms
    If dms("记账") = False Then
        Dim Sun As Double
        Sun =  DataTables("材料发放明细表").Compute("Sum(出库数量)", "[物料代码] = ' & dms & '")
        If sun >= dg("库存数量") Then
            MsgBox("出库量不能大于库存量!")
            e.DataRow("出库数量") = Nothing
            'e.Cancel = True
        End If
    End If
Next

 

改成

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

 直接说你想做什么，并且上传具体的例子啊。

新的出库数量与未记账的出库数量之和不能大于库存量，"dms"是物料代码列的集合，是字符串，如何表示相同无聊代码的“记账”列，If dms("记账") = False Then 这个代码有问题

实例：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:hjkscbhs.rar

Dim dg As DataRow = DataTables("库存材料表").Find("[物料代码] = '" & e.DataRow("物料代码") & "'","_Identify Desc")'获得最后一行
Select Case e.DataCol.name
    Case "出库数量"
        If dg Is Nothing Then '如果找到了同名的物料代码行,也就是dr不是Nothing
            'msgbox("在库存没找到物料")
            'e.Cancel = True
            e.NewValue = Nothing
        Else
           
            If e.newvalue <= 0 Then
                e.newValue = Nothing
            Else
                Dim sum As Double =  DataTables("材料发放明细表").Compute("Sum(出库数量)", "[物料代码] = '" & e.DataRow("物料代码") & "' and 记账 = false")
                If sum + e.newvalue > dg("库存数量") Then
                    MsgBox("出库量不能大于库存量!")
                    e.DataRow("出库数量") = Nothing
                End If
            End If
        End If
       
       
End Select

谢谢！！！

求教：锁定行后如何能编辑其中的某一列，写在什么事件中

 

锁定行以后，不能编辑某一列。

 

要编辑，就不能锁定行。

 

或者你可以用事件控制 如 http://www.foxtable.com/help/topics/2255.htm

 

例如：审核后锁定该行，如何取消审核