[求助] 如何参考相关表来修改列内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 如何参考相关表来修改列内容

共有2879人关注过本帖树形打印复制链接主题：[求助] 如何参考相关表来修改列内容

有点蓝

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

加好友

发短信

等级：超级版主帖子：107669 积分：547660 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/25 22:28:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/scr/0696.htm

sanny

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

加好友

发短信

等级：三尾狐帖子：798 积分：5911 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/25 23:11:00 [只看该作者]

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

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/26 11:52:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/3266.htm

sanny

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

加好友

发短信

等级：三尾狐帖子：798 积分：5911 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/26 18:32:00 [只看该作者]

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

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

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

fdr.save
End If
Next

有点蓝

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

加好友

发短信

等级：超级版主帖子：107669 积分：547660 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/26 20:21:00 [只看该作者]

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

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

Dim r2 As Row = t2.current

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "UPDATE order SET 交货期1 = ?，交货期2=？ WHERE [_Identify] = ?"

For i As Integer = t1.TopPosition To t1.BottomPosition
Dim r1 As Row = t1.Rows(i)

cmd.Parameters.clear
cmd.Parameters.Add("@交货期1",r2("交货期1"))
cmd.Parameters.Add("@交货期2",r2("交货期2"))
cmd.Parameters.Add("@Identify",r1("id"))
cmd.ExecuteNonQuery

sanny

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

加好友

发短信

等级：三尾狐帖子：798 积分：5911 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/26 22:57:00 [只看该作者]

以下是引用有点甜在2019/3/24 22:54:00的发言：

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107669 积分：547660 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/26 23:11:00 [只看该作者]

截图，或者上传实例说明，您想怎么样更新数据？

sanny

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

加好友

发短信

等级：三尾狐帖子：798 积分：5911 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/27 19:33:00 [只看该作者]

版主，可以不以 _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