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

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

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

有点甜

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

加好友

发短信

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

Post By：2015/1/8 15:56:00 [显示全部帖子]

你问过了啊，循环子表，合并内容，赋值给父表啊。

这个是一条记录的 http://www.foxtable.com/help/topics/1453.htm

有点甜

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

加好友

发短信

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

Post By：2015/1/9 11:52: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 dr As DataRow In drs
            txt = txt & dr("资料") & vbcrlf
        Next
        e.DataRow("辅助资料") = txt
    End If
End If

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

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

加好友

发短信

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

Post By：2015/1/9 18:11:00 [显示全部帖子]

以下是引用cqlwsam在2015-1-9 18:00:00的发言：
另一个问题，父表选中不同的行，但辅助资料的列窗口中的值不随行发生改变。不知道怎么回事

呃，选中父表，跟辅助资料的列窗口无关。你必须要选中子表的某一行才会变

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

下一主题 >> << 上一主题

主题：[求助]如何将子表中的相关内容赋值在父表中