主题：关于同步表

网络环境下需要经常同步表，将同步表的按钮做在工具栏上可以同步当前表，如果有关联表则只同步主表。我想要代码智能判断一下，如果当前表有关联表则一并同步。

看看

 

http://www.foxtable.com/webhelp/scr/1941.htm

 

不怎么会用,能给个示例代码吗?

For Each re As Relation In Relations
    If Re.ParentTable.Name = CurrentTable.DataTable.name Then
        Dim dt As DataTable = DataTables(Re.ChildTable.Name)
        dt.load
    ElseIf Re.ChildTable.Name = CurrentTable.DataTable.name Then
        Dim dt As DataTable = DataTables(Re.parenttable.Name)
        dt.load
    End If
Next

谢谢