Dim t  As Table = Tables("关联名称档")
For Each r As Row In t.Rows
    If r IsNot Nothing Then
        Dim pt As Boolean =Tables.Contains(r("父表名称"))
        Dim ct As Boolean =Tables.Contains(r("子表名称"))
        If pt=True And ct=True Then
            Dim t1 As DataTable = DataTables(r("父表名称"))
            Dim t2 As DataTable = DataTables(r("子表名称"))
            If Relations.Contains(r("关联名称"))=True Then
                messagebox.show("名称为:[" & r("关联名称") & "]的关联已经存在,不能重复建立!")
            Else
                Dim pc() As String = r("父表关联字段").split(",")
                Dim cc() As String = r("子表关联字段").split(",")
                Dim pcs(pc.length) As DataCol
                Dim ccs(cc.length) As DataCol
                If pc.length>0 Then
                    For i As Integer =0 To pc.length-1
                        pcs(i)=t1.datacols(pc(i))
                        ccs(i)=t2.datacols(cc(i))
                    Next
                End If
                Relations.add(r("关联名称"),pcs,ccs)
            End If
        End If
    End If
Next