共3 条记录, 每页显示 10 条, 页签: [1]

标题：为何代码并不能绝对禁止数据更新？

1楼

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编辑过]

2楼

czy 发表于：2011/8/14 0:09:00

If e.DataCol.Name = "产品"
    If e.DataRow.Locked Then
        Return
    End If
    执行代码
End If

3楼

狐狸爸爸 发表于：2011/8/14 8:52:00

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

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

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

共3 条记录, 每页显示 10 条, 页签: [1]