主题：狐爸看看 如何用代码改变外部表的对应关系。

对表名用表进行管理，我没有使用你这个来加载表，我都是用窗口使用fill来实现的。以下是飞的代码，你可以试试看

'此函数用于动态生成数据表
Dim TblName As String = Args(0)           '要生成的表名称
Dim SQLStr As String = Args(1)            'SQL语句
Dim CanEdit As Boolean = Args(2)          '是否允许修改,用于权限控制

If DataTables.Contains(TblName ) Then
    DataTables(TblName ).Fill(SQLStr ,"Test",not CanEdit)
Else
    Dim TblBu As new OuterTableBuilder
    TblBu.TableCaption = TblName
    TblBu.TableName = TblName
    TblBu.C
    TblBu.SelectString = SQLStr
    TblBu.Build
End If
With DataTables(TblName )
    .AllowEdit = CanEdit                           '根据权限设置是否允许编辑
    .GlobalHandler.PrepareEdit = True              '开启全局表事件
    .GlobalHandler.DataRowAdding = True
    .GlobalHandler.BeforeShowContextMenu = True
    .GlobalHandler.DataColChanged = True
    If .Name Like "员工资料*" Then .GlobalHandler.BeforeAttachFile = True
    If .Name Like "成品资料维护*" Then .GlobalHandler.DataColChanged = True
End With
Tables(TblName ).AutoSizeCols
Tables(TblName ).Grid.AllowFiltering = True
Tables(TblName ).Grid.AllowFreezing = True
'If TblName.Contains("录入") Then Tables(TblName).Grid.AllowAddNew = True
MainTable = Tables(TblName )