代码改变值后，表事件：DataColChanged 中的代码未执行。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码改变值后，表事件：DataColChanged 中的代码未执行。

共有2568人关注过本帖树形打印复制链接主题：代码改变值后，表事件：DataColChanged 中的代码未执行。

Hyphen

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/9/6 12:01:00 [显示全部帖子]

你的目的是更新销售订单中的客户编号和客户，为什么不一次在客户表的事件完成呢，公司名称和客户编号取得都是客户同一个表中的内容啊

'表:客户,表事件:DataColChanged 写入:
Select Case e.DataCol.Name
    Case "客户编号"
        DataTables("销售订单").ReplaceFor("客户",e.DataRow("公司名称"),"客户编号 = '" & e.OldValue & "'")
        DataTables("销售订单").ReplaceFor(e.DataCol.Name,e.NewValue,"客户编号 = '" & e.OldValue & "'")
End Select

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/9/6 12:18:00 [显示全部帖子]

如果确保先更改：编号，再更改：名称，可以这样用
Case "客户编号"
DataTables("销售订单").ReplaceFor(e.DataCol.Name,e.NewValue,"客户编号 = '" & e.OldValue & "'")

Case "公司名称"
DataTables("销售订单").ReplaceFor("客户",e.NewValue, "客户编号 = '" & e.DataRow("客户编号") & "'")

Hyphen

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/9/6 13:31:00 [显示全部帖子]

Case "客户编号"

DataTables("销售订单").ReplaceFor("客户",e.DataRow("公司名称") , "客户编号 = '" & e.OldValue & "'")
DataTables("销售订单").ReplaceFor(e.DataCol.Name,e.NewValue,"客户编号 = '" & e.OldValue & "'")

Case "公司名称"
DataTables("销售订单").ReplaceFor("客户",e.NewValue, "客户编号 = '" & e.DataRow("客户编号") & "'")

下一主题 >> << 上一主题

主题：代码改变值后，表事件：DataColChanged 中的代码未执行。