主题：三个表同步

代码逻辑混乱，和你的需求对不上号，最好做个简单例子发上来，具体说明在什么事件写了代码，目的是什么，遇到什么问题。

别写代码了，用关联和表达式就行。

 

如果要写代码，看看：
http://www.foxtable.com/help/topics/1451.htm

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

 

例如表A是父表，表B是子表，表B通过表达式引用父表的数据，表B的表达式列是不能修改，但是表A的是数据列，是可以修改的，修改后表B也会随之变化。

一对多，最适合关联，一作为父表，多作为子表，子表引用父表数据就行了

可以。

呵呵，这是foxtable论坛，做例子的话，请用foxtable做

你把门锁了，别人进不去。

 

个人建议你先系统学习帮助，看三遍，一个月内你就可以设计各种普通的管理系统。

否则一个月之后，你还是菜鸟一个，什么也不会。

我们接触的客户很多，那些以时间紧迫作为借口的用户，最后都耽误了时间，到最后什么也不会。

那些按照顺序，踏踏实会，一步一个脚印的，最后都成了高手。

不是开发者的话，根本就进不去，因为你设置了外部数据源。

是开发者的话，也许可以试试。

帮助从来没有说列名要相同。
 
例如帮助有这么一个例子，订单表引用产品表的单价，列名都是单价：
 
If e.DataCol.Name = "品名" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("单价") = Nothing '那么清空此行价格列的内容
    Else
        Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品").Find("[品名] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("单价") = dr("单价")
        End If
    End If
End If
 
如果订单表的列的名称是价格，产品表是单价，也就是列名不同，代码：
 
 
 If e.DataCol.Name = "品名" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("价格") = Nothing '那么清空此价格列的内容
    Else
        Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品").Find("[品名] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("价格") = dr("单价")
        End If
    End If
End If