生产表 chuimo

表属性 事件

datacolchanged 

设置如下

Select Case e.DataCol.Name
    Case "ruku"
        Dim val As  Double = e.DataRow("shuliang")
        If e.DataRow("ruku") = False Then
            val = -val
        End If
        Dim dr As DataRow = DataTables("GoodsStocks").find("ptypeid = \'" & e.DataRow("PtypeID") & "\'")
        If dr IsNot Nothing Then
            dr("Qty") = dr("Qty") + val
           
           
            dr("total") = dr("Qty") * dr("price")
        Else
            dr = DataTables("GoodsStocks").AddNew()
            dr("ptypeid")=e.DataRow("ptypeid")
            dr("KtypeId")="00001"
            dr("qty")=dr("qty")
            dr("price")=0
            dr("total")=0
            dr("GOODSORDERID")=0
        End If
       
       
    Case "shuliang"
        Dim dr As DataRow=e.DataRow
         dr("zonger") =dr("shuliang")*dr("price")
             
End Select

此主题相关图片如下：113.jpg

如图所示，如果 该产品已经入库，修改数量的时候，则禁止修改数量。

并且 弹出对话框“该产品已经入库，禁止修改数量”怎么设置呢？

参考：

http://www.foxtable.com/help/topics/0605.htm