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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何将子表中的相关内容赋值在父表中

共有3379人关注过本帖树形打印复制链接主题：[求助]如何将子表中的相关内容赋值在父表中

cqlwsam

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

加好友

发短信

等级：五尾狐帖子：1014 积分：7535 威望：0 精华：0 注册：2010/4/12 12:23:00

Post By：2015/1/9 11:56:00 [只看该作者]

甜老师的代码提示和九楼的一样

cqlwsam

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

加好友

发短信

等级：五尾狐帖子：1014 积分：7535 威望：0 精华：0 注册：2010/4/12 12:23:00

Post By：2015/1/9 11:58:00 [只看该作者]

是否与前面的定义有关：

Dim dr As DataRow=e.DataRow

cqlwsam

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

加好友

发短信

等级：五尾狐帖子：1014 积分：7535 威望：0 精华：0 注册：2010/4/12 12:23:00

Post By：2015/1/9 12:02:00 [只看该作者]

有关

有点甜

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

加好友

发短信

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

Post By：2015/1/9 12:08:00 [只看该作者]

换一个名字

Dim dr1111 As DataRow=e.DataRow

cqlwsam

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

加好友

发短信

等级：五尾狐帖子：1014 积分：7535 威望：0 精华：0 注册：2010/4/12 12:23:00

[求助]如何将子表中的相关内容赋值在父表中 发帖心情

Post By：2015/1/9 12:21:00 [只看该作者]

If e.DataCol.Name = "资料" Then

Dim txt As String = ""

Dim t As Table = Tables("辅助资料基本表")

If t.current("PatientsID") IsNot Nothing Then

Dim drs As List(Of DataRow) = DataTables("辅助资料").Select("PatientsID = '" & t.current("PatientsID") & "'")

For Each dr1 As DataRow In drs

txt = txt & dr1("资料") & vbcrlf

t.current("辅助资料") = txt

End If

代码通过，但无结果。

[此贴子已经被作者于2015-1-9 12:21:21编辑过]

有点甜

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

加好友

发短信

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

Post By：2015/1/9 14:04:00 [只看该作者]

If e.DataCol.Name = "资料" Then
    Dim txt As String = ""
    If e.DataRow.Isnull("PatientsID") = False Then
        Dim drs As List(Of DataRow) = DataTables("辅助资料").Select("PatientsID = '" & e.DataRow("PatientsID") & "'")
        For Each dr1 As DataRow In drs
            txt = txt & dr1("资料") & vbcrlf
        Next
        e.DataRow("辅助资料") = txt
    End If
End If

有点甜

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

加好友

发短信

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

Post By：2015/1/9 14:05:00 [只看该作者]

重置列啊

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

cqlwsam

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

加好友

发短信

等级：五尾狐帖子：1014 积分：7535 威望：0 精华：0 注册：2010/4/12 12:23:00

Post By：2015/1/9 15:22:00 [只看该作者]

甜老师：

“资料” 属于子表“辅助资料”；“复制资料”属于父表“辅助资料基本表”，两者均有“patientsID”。你的代码如果不修改，有问题。

有点甜

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

加好友

发短信

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

Post By：2015/1/9 15:27:00 [只看该作者]

写到主表的DataCochanged事件啊

If e.DataCol.Name = "辅助资料" Then
    Dim txt As String = ""
    If e.DataRow.Isnull("PatientsID") = False Then
        Dim drs As List(Of DataRow) = DataTables("辅助资料").Select("PatientsID = '" & e.DataRow("PatientsID") & "'")
        For Each dr1 As DataRow In drs
            txt = txt & dr1("资料") & vbcrlf
        Next
        e.DataRow("辅助资料") = txt
    End If
End If