主题：[求助] 如何参考相关表来修改列内容

版主，请问一下，有两个表：一个是产品，另一个是订单明细表。

在窗口中打开了订单明细表来填写交货期1 和 交货期2，可是这个表中只有代码，如何根据该订单表中的产品代码把产品表中的相关信息也带过来，这样就知道是什么产品了，再来填写交货期。产品中的相关信息又不可以增加到订单明细中，只做参考用。

如果用查询表的话，查询表中的内容是不可以修改的。

附上实例，谢谢。

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

点击浏览该文件:管理项目1.foxdb

版主，

是这样的 ：如图，小表是交货期，大表是查询表，当我选中大表中的1个或多个记录后，再选中小表中的相应记录，按修改后，可将小表表中选中的相应日期填写到order表中相应的交货期1和交货期2中。

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

点击浏览该文件:管理项目1.foxdb

谢谢，版主

如果如下的order 表在sql sever 上，不下载下来，该如何直接去修改交货期1 和交货期2.谢谢。

Dim t1 As Table = e.Form.controls("table1").Table
Dim t2 As Table = e.Form.controls("table2").Table

For i As Integer = t1.TopPosition To t1.BottomPosition
    Dim r1 As Row = t1.Rows(i)
    Dim r2 As Row = t2.current
    Dim fdr As DataRow = DataTables("order").Find("_Identify = " & r1("id"))
    If fdr IsNot Nothing Then
        fdr("交货期1") = r2("交货期1")
        fdr("交货期2") = r2("交货期2")
        r1("交货期1") = r2("交货期1")
        r1("交货期2") = r2("交货期2")
    End If
Next

Dim t1 As Table = e.Form.controls("table1").Table
Dim t2 As Table = e.Form.controls("table2").Table

For i As Integer = t1.TopPosition To t1.BottomPosition
    Dim r1 As Row = t1.Rows(i)
    Dim r2 As Row = t2.current
    Dim fdr As DataRow = DataTables("order").sqlFind("_Identify = " & r1("id"))
    If fdr IsNot Nothing Then
        fdr("交货期1") = r2("交货期1")
        fdr("交货期2") = r2("交货期2")
        r1("交货期1") = r2("交货期1")
        r1("交货期2") = r2("交货期2")

        fdr.save
    End If
Next

版主，

请帮忙再一下，这个查询表中没有找到唯一性，表SEOrderEntry中的ETD和ETA 如何根据窗口选中的记录来填写。

再麻烦了。

不是有【_Identify】列？引用对应表的此列到查询表即可。

谢谢版主，找着了也填写成功了。再请问一下，如是用外部数据源，这些表不下载的话，如何直接去填写外部数据源中的这些表 ？