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

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

在窗口中打开了订单明细表来填写交货期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

版主，

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

再麻烦了。

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

版主，理解如下，但是不多，你看一下哪儿可以帮忙指点一下。谢谢。

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "外部数据源名称"

老师， 这个有点难，能不能帮忙把下面的串起来，麻烦了。

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "外部数据源名称"

版主，如果不把外部数据源中的表下载，直接到sql 中填写，表中是没有 _Identify 列的 ？那如何找出它的唯一性呢 ？

版主，可以不以 _Identify 这个来作为条件，有没有其它的功能也可以达到这个效果呢？ 因为服务器上的表没有这个_Identify

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