主题：数据关联同步问题

谢谢，这个如果是还有多列相同，如在订单登记表中的  工时  与跟踪卡明细表中的  核定工时相同

是否将下面那段代码改为：

Else If e.DataCol.Name = "工种" OrElse e.DataCol.Name = "工时" Then
    Dim fdr As DataRow = DataTables("质量跟踪卡明细").find("生产调度令号 = '" & e.DataRow("生产调度令号") & "' and 序号 = '" & e.DataRow("序号") & "'")
    If fdr IsNot Nothing Then
        fdr("工种") = e.DataRow("工种")
        fdr("核定工时") = e.DataRow("工时")
    End If
End If

即可

如果有更多相同之处，只改下面那段在后面添加就好了嘛？

1. 如例程所示，订单登记表中生产调度令号与序号构成唯一

将 生产调度令号 序号 工种 同步到 质量跟踪卡明细表中

删除 同之前一样

2.

将质量跟踪卡明细中的生产调度令号、序号、工种、核定工时、交检数、操作者依次同步到 检验记录表中的 生产调度令号、序号、工种、工种工时、加工数量、操作者中。

3. 三个为连接同步，同时，在订单登记表中删除生产调度令号和序号任意一个，后面连接同步的表中该行均删除；

4. 此外，若订单登记表中的生产调度令号相同，序号也相同时，给出提示，并禁止输入相同的，后面的表中不会生成新的行。

5. 麻烦大哥帮忙，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例程3.foxdb

想咨询一下如果从本表中获取机加订单录入中生产调度令号相同的数据，本表中的调度令号是可以重复的，机加订单录入的生产调度令号是不能重复的，这样是佛可以实现：

If e.DataCol.Name = "生产调度令号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("加工产品名称") = Nothing
        e.DataRow("零部件名称") = Nothing
        e.DataRow("开始日期") = Nothing
        e.DataRow("计划完工日期") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("机加订单录入").Find("[生产调度令号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("加工产品名称") = dr("加工产品名称")
            e.DataRow("零部件名称") = dr("加工零部件名称")
            e.DataRow("开始日期") = dr("接活日期")
            e.DataRow("计划完工日期") = dr("要求交付日期")
        End If
    End If
End If