Foxtable(狐表)用户栏目专家坐堂 → [求助]动态加载表


  共有3412人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
积水成渊
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
[求助]动态加载表  发帖心情 Post By:2017/7/13 16:58:00 [只看该作者]

通过动态加载几张表,为什么不能通过_Identify来建立关联列, 求大神,测试好长时间了

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/7/13 17:14:00 [只看该作者]

动态加载的表有加载_Identify列吗?

只有父表可以使用_Identify作为关联列

 回到顶部
帅哥哟,离线,有人找我吗?
积水成渊
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By:2017/7/13 17:31:00 [只看该作者]

_Identify的列如何显示出来,查看表结构确实没有_Identify的列,但是通过关联表可以看到表中有_Identify的字段,但是我通过动态关联表就提示没有_Identify的列。该如何处理

 回到顶部
帅哥哟,离线,有人找我吗?
积水成渊
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By:2017/7/13 17:35:00 [只看该作者]

我想在表中再添加一个ID字段,只要表一增加行,就自动将_Identify的值赋值给ID字段。该如何添加代码
[此贴子已经被作者于2017/7/13 17:35:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/13 17:52:00 [只看该作者]

DataTables("表a").datacols.Add("test", Gettype(Double), "_Identify")
Relations.Add("关联1",DataTables("表a").DataCols("test"),DataTables("表B").DataCols("第一列"))

 回到顶部
帅哥哟,离线,有人找我吗?
积水成渊
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:348 积分:2805 威望:0 精华:0 注册:2016/8/24 10:39:00
  发帖心情 Post By: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

 回到顶部