大师:您好!
请问以下代码写在哪个表的DataColChanged事件里?,订单表的DataColChanged好像也需写代码?
再例如希望在产品表中修改单价后,对于已经锁定或者已经付款的订单,单价保持不变,其余订单则采用新的单价:
If e.DataCol.Name = "单价"
Dim Filter As String = "[品名] = '"
&
e.DataRow("品名") &
"' And 已付款 = False"
Dim drs As List(Of
DataRow) =
DataTables("订单").Select(Filter)
For Each dr As DataRow In drs
If dr.Locked = False Then
DataTables("订单").DataCols("品名").RaiseDataColChanged(dr)
End If
Next
End If