主题：判定条件

当表 入库单表 里面的 “入库属性”=“生产入库”时 列 “制令单号”允许编辑，反之则不能编辑，怎么写代码啊 

prepareEdit事件

 

If e.Col.Name = "制令单号" AndAlso e.Row("入库属性") <> "生产入库" Then

    e.cancel = True

End If

 

http://www.foxtable.com/webhelp/scr/0605.htm

 

谢谢，另外求帮着看看如下代码：

Select Case e.DataCol.Name
 Case "入库数量"
        If e.DataCol.Name = "入库数量" Then
          Dim filter As String = "入库单号 = '" & e.DataRow("入库单号") & "'"
            Dim sum As Double = e.DataTable.Compute("sum(入库数量)", filter)
        If e.DataRow("采购数量") - e.DataTable.Compute("sum(入库数量)", filter) = 0 Then
            MessageBox.Show("本次采购订单任务完成")
            'SystemReady = False
 Tables("入库单").Current("审核")="true"
            'SystemReady = True
    End If
    End If
End Select

这个是入库单表关联一个入库明细表（入库单号关联），当明细表里面的入库完成后，入库单自动审核隐藏，但是现在是下面的任何一行完成都会导致该主表隐藏，能不能改成整个表都完成，主表再审核啊，谢谢有点青老师

主表隐藏是什么意思？这个代码是哪个表的事件？

3楼的代码应该是没问题的，只有入库数量等于采购数量的时候才会执行

 

Tables("入库单").Current("审核")=true

主表隐藏;

是这样的，主表“入库单”里面的 审核=true 后，自动会隐藏，嘻嘻，只要弄成子表“入库明细”表里面的当前表里的采购数量累加-当前表里的入库数量累加=0就行

DataColChanged

 3楼代码没问题吧？

3楼的代码是假如主表“入库单”下面对应的有5行不同名称的物料，其中只要有一种物料=0了 ，入库单里面的审核=true了，而我希望的是，下面的5行里的数据，每一行数据都=0了，入库单里面的审核才=0

 改一下

 

Select Case e.DataCol.Name
    Case "入库数量"
        Dim filter As String = "入库单号 = '" & e.DataRow("入库单号") & "'"
        Dim sum1 As Double = e.DataTable.Compute("sum(入库数量)", filter)
        Dim sum2 As Double = e.DataTable.Compute("sum(采购数量)", filter)
        If sum1 >= sum2 Then
            MessageBox.Show("本次采购订单任务完成")
            Tables("入库单").Current("审核")="true"
        End If
End Select

谢谢