| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]动态加载表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103655) |
| -- 作者：积水成渊 -- 发布时间：2017/7/13 16:58:00 -- [求助]动态加载表 通过动态加载几张表，为什么不能通过_Identify来建立关联列， 求大神，测试好长时间了 |
| -- 作者：有点蓝 -- 发布时间：2017/7/13 17:14:00 -- 动态加载的表有加载_Identify列吗？ 只有父表可以使用_Identify作为关联列
|
| -- 作者：积水成渊 -- 发布时间：2017/7/13 17:31:00 -- _Identify的列如何显示出来，查看表结构确实没有_Identify的列，但是通过关联表可以看到表中有_Identify的字段，但是我通过动态关联表就提示没有_Identify的列。该如何处理 |
| -- 作者：积水成渊 -- 发布时间：2017/7/13 17:35:00 -- 我想在表中再添加一个ID字段，只要表一增加行，就自动将_Identify的值赋值给ID字段。该如何添加代码 [此贴子已经被作者于2017/7/13 17:35:44编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/7/13 17:52:00 -- DataTables("表a").datacols.Add("test", Gettype(Double), "_Identify") Relations.Add("关联1",DataTables("表a").DataCols("test"),DataTables("表B").DataCols("第一列")) |
| -- 作者：积水成渊 -- 发布时间：2017/7/14 10:46:00 -- 感谢各位老师提供的各种解决方法。问题已经解决了！一下是自己写的一些代码，供大家参考与指正： 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 |