主题：关联表克隆

Dim t1 As Table
Dim t2 As Table
Dim t3 As Table
For Each r1 As DataRow In t1.DataTable.Select("bh = '" & t1.current("bh") & "'")
    Dim nr1 As Row = t1.addnew
    For Each c As Col In t1.cols
        nr1(c) = r1(c.name)
    Next
    For Each r2 As DataRow In t2.DataTable.Select("bh = '" & r1("bh") & "'")
        Dim nr2 As Row = t2.addnew
        For Each c As Col In t1.cols
            nr2(c) = r2(c.name)
        Next
        For Each r3 As DataRow In t3.DataTable.Select("bh = '" & r2("bh") & "'")
            Dim nr3 As Row = t3.addnew
            For Each c As Col In t3.cols
                nr3(c) = r3(c.name)
            Next
        Next
    Next
Next