[求助]动态加载表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

感谢各位老师提供的各种解决方法。问题已经解决了！一下是自己写的一些代码，供大家参考与指正：

If DataTables("SPM_合同清单表").DataCols.Contains("ID") Then

'DataTables("SPM_合同清单表").DataCols.Delete("ID")

Else

DataTables("SPM_合同清单表").datacols.Add("ID", Gettype(Integer), "_Identify")

End if

If DataTables("SPM_合同方案表").DataCols.Contains("ID") Then

'DataTables("SPM_合同方案表").DataCols.Delete("ID")

Else

DataTables("SPM_合同方案表").datacols.Add("ID", Gettype(Integer), "_Identify")

End if

'DataTables("SPM_合同清单表").datacols.Add("ID", Gettype(Integer), "_Identify")

'DataTables("SPM_合同方案表").datacols.Add("ID", Gettype(Integer), "_Identify")

Dim ParentCol As DataCol

Dim ChildCol As DataCol

ParentCol = DataTables("SPM_合同清单表").DataCols("ID")

ChildCol = DataTables("SPM_合同方案表").DataCols("合同清单ID")

Win.FoxLib.Table.CreateRelation(ParentCol,ChildCol)

ParentCol = DataTables("SPM_合同方案表").DataCols("ID")

ChildCol = DataTables("SPM_取值条件表").DataCols("合同方案ID")

Win.FoxLib.Table.CreateRelation(ParentCol,ChildCol)

ParentCol = DataTables("SPM_合同方案表").DataCols("ID")

ChildCol = DataTables("SPM_兑现记录表").DataCols("合同方案ID")

Win.FoxLib.Table.CreateRelation(ParentCol,ChildCol)

ParentCol = DataTables("SPM_合同方案表").DataCols("ID")

ChildCol = DataTables("SPM_价格维护表").DataCols("合同方案ID")

Win.FoxLib.Table.CreateRelation(ParentCol,ChildCol)

Tables("SPM_合同清单表").Cols("ID").Visible = False

Tables("SPM_合同清单表.SPM_合同方案表").Cols("ID").Visible = False

主题：[求助]动态加载表