- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]夸表更新 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153881)
-- 发布时间：2020/8/26 15:51:00
-- [求助]夸表更新
跨表引用的自动更新 案例中，求助增加 订单表 更新单价否 列的为 是 ，产品表修改单价，订单表才同步更新 单价
也就是不要，订单表，更新单价否 列的值不等于是 的不同步更新 单价
求助下面 产品表 代码增加 上面功能条件 判断 订单表 更新单价否 条件
If e.DataCol.Name = "单价"
Dim Filter As String = "[品名] = \'" & e.DataRow("品名") & "\'"
Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
For Each dr As DataRow In drs
dr("单价") = e.DataRow("单价")
Next
End If
e.DataCol.Name = "单价"
Dim Filter As String = "[品名] = \'" & e.DataRow("品名") & "\'"
Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
For Each dr As DataRow In drs
dr("单价") = e.DataRow("单价")
Next
End If
[此贴子已经被作者于2020/8/26 16:00:27编辑过]
-- 发布时间：2020/8/26 15:59:00
--
没看懂您表达的意思。截图，或者上传实例说明
-- 发布时间：2020/8/26 16:03:00
-- 回复：（有点蓝）没看懂您表达的意思。截图，或者上传...
有条件的跨表更新
If e.DataCol.Name = "单价"
Dim Filter As String = "[品名] = \'" & e.DataRow("品名") & "\' And 已付款 = False"
DataTables("订单").ReplaceFor("单价", e.NewValue, Filter)
End If
帮助里面，已付款 这个条件是在 产品表
我想 增加在 订单表 里增加类似 已付款 这个条件
-- 发布时间：2020/8/26 16:09:00
--
If e.DataCol.Name = "单价"
Dim Filter As String = "[品名] = \'" & e.DataRow("品名") & "\'"
if DataTables("产品表").find( "[品名] = \'" & e.DataRow("品名") & "\' And 已付款 = False") isnot nothing then
DataTables("订单").ReplaceFor("单价", e.NewValue, Filter)
end if
End If
-- 发布时间：2020/8/26 16:51:00
-- 回复：（有点蓝）If e.DataCol.Name = "单价" &...
测试上楼代码，已付款 这个条件无效的，坛主上面代码是否有误？
-- 发布时间：2020/8/26 16:59:00
--
我只是根据您的描述凭想象写代码，如果要准确请上传实例说明
-- 发布时间：2020/8/27 9:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:夸表更新.foxdb |
坛主辛苦看看了
已付款 条件无效
-- 发布时间：2020/8/27 9:59:00
--
请重新描述一下问题，
是要把产品表的单价更新到订单表？
还是要把订单表的单价更新到产品表？
-- 发布时间：2020/8/27 14:04:00
-- 回复：（有点蓝）请重新描述一下问题，是要把产品表的...
订单表，单价修改
产品表，已付款 打勾 的单价同步更新
-- 发布时间：2020/8/27 14:21:00
--
订单表datacolchanged
If e.DataCol.Name = "单价"
Dim Filter As String = "[品名] = \'" & e.DataRow("品名") & "\' And 已付款 = true"
DataTables("产品表").ReplaceFor("单价", e.NewValue, Filter)
End If