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

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 "记账"

 

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

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

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

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

 

 

如果是锁定行，你可以做一个按钮取消审核，比如

 

Tables("表A").Current.Locked = False

Tables("表A").Current("审核") = False

 

-------------

 

或者审核由prepareEdit控制 http://www.foxtable.com/help/topics/2296.htm

 

 列.Combolist = DataTables("表A").GetComboListString("县市")  & "|" & DataTables("表B").GetComboListString("县市")