标题：如果产品已经入库，则不允许修改生产数量，怎么设置？
生产表 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
如图所示，如果 该产品已经入库，修改数量的时候，则禁止修改数量。
并且 弹出对话框“该产品已经入库，禁止修改数量”怎么设置呢？