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

此主题相关图片如下：360软件小助手截图20150108152334.png

父表：辅助资料基本表，其中列“辅助资料”是备注字段

字表：通过PatientsID 筛选而来，其中列“资料”是备注字段，保存的是相关的各种文件，一条记录一个文件。

现在如何将病例的所有资料文件赋值给父表中的“辅助字段”，并想该患者在字表进行的任何操作，只要文件改变，父表中的“辅助资料”也同步改变。

谢谢！

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

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

    Dim txt As String

    Dim txt1 As String = t.Current("辅助资料")

    If dr("PatientsID") IsNot Nothing Then

        Dim drs As List(Of DataRow) = DataTables("辅助资料")

        For Each dr As DataRow In drs

            txt= txt & dr("资料") & vbcr & vbcf

        Next

        txt1=txt

    End If

End If

其中： 这句代码过不了，怎么改：Dim drs As List(Of DataRow) = DataTables("辅助资料")

修改后提示：

此主题相关图片如下：360软件小助手截图20150109115401.png

Dim dr As DataRow=e.DataRow

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

        Next

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

    End If

End If

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