以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为何代码并不能绝对禁止数据更新？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11840)
--  作者：yanzhen2010
--  发布时间：2011/8/13 23:57:00
--  为何代码并不能绝对禁止数据更新？


例如希望在产品表中修改单价后，订单表中已经付款的订单，继续保持原单价不变，而未付款的订单采用新的单价。
为此，我们可以在产品表的DataColChanged事件中加入如下代码：

If e.DataCol.Name = "单价"
    Dim Filter As String = "[品名] = \'" & e.DataRow("品名") & "\' 已付款 = False"
    DataTables("订单").ReplaceFor("单价", e.NewValue, Filter)
End If


上述代码能够相对禁止“单价”的更新，但是当重置订单表“品名”列后，单价依然更新为新的单价。


如果“已付款 = true”，如何绝对禁止单价的更新呢？

代码又如何写呢？
[此贴子已经被作者于2011-8-13 23:58:04编辑过]
--  作者：czy
--  发布时间：2011/8/14 0:09:00
--  
If e.DataCol.Name = "产品"
    If e.DataRow.Locked Then
        Return
    End If
    执行代码
End If
--  作者：狐狸爸爸
--  发布时间：2011/8/14 8:52:00
--  

有条件的跨表更新，这里有讲述的：

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

 

[此贴子已经被作者于2011-8-14 8:52:34编辑过]