Foxtable(狐表)用户栏目专家坐堂 → 表间关联公式无法打开


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

主题:表间关联公式无法打开

帅哥哟,离线,有人找我吗?
wumingrong-2
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2023/2/23 17:14:00
表间关联公式无法打开  发帖心情 Post By:2024/10/22 16:41:00 [只看该作者]

项目发布后、无法打开这个维护表间关联的命令;要怎么处理

 

Syscmd.Table.ModifyDataRelation()


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


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/22 17:04:00 [只看该作者]

这种属于开发功能,所有的开发功能,在发布后都无法使用的。

到源项目里更改,然后重新发布使用

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


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2023/2/23 17:14:00
  发帖心情 Post By:2024/10/22 17:07:00 [只看该作者]

有没有什么命令、不用打卡这个开发功能窗口、也可以实现对表间的关联进行直接设置?


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


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/22 17:15:00 [只看该作者]

如果没有添加过关联的表,可以使用代码处理:http://www.foxtable.com/webhelp/topics/1942.htm

如果是在菜单关联设置里做了关联的,就不能使用代码了,需要到菜单的关联设置里先删除掉关联

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


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2023/2/23 17:14:00
  发帖心情 Post By:2024/10/22 17:26:00 [只看该作者]

 

这个是增加关联关系公式

Relations.Add("关联1",DataTables("产品").DataCols("产品编号"),DataTables("订单").DataCols("产品编号"))

 

这个是删除关联关系公式

Relations.Delete("关联1")

 

 

如果我要查询项目中做了哪几个关联关系;公式要怎么写?


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


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/22 17:27:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2023/2/23 17:14:00
  发帖心情 Post By:2024/10/24 17:14:00 [只看该作者]

这个下拉菜单如何显示用ADD新增的所有关联关系?

 

Relations.Add(e.Form.Controls("关联关系名称").text,DataTables(e.Form.Controls("父表名称").text).DataCols(e.Form.Controls("父表关联列").text),DataTables(e.Form.Controls("子表名称").text).DataCols(e.Form.Controls("子表关联列").text),  False,  RelationPathEnum.one)

 

 


图片点击可在新窗口打开查看此主题相关图片如下:6e6d783e8ddeb6563ef0450f4be1688.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/24 17:40:00 [只看该作者]

For Each re As Relation In Relations
    e.Form.Controls("关联关系名称").items.add( Re.Name)
Next

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


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2023/2/23 17:14:00
  发帖心情 Post By:2024/10/24 18:30:00 [只看该作者]

以下公式是要写在下拉菜单控件的 Enter 事件中,点击该控件后就能自动列出所有关联关系。但是删除了关联关系后、再点击控件、被删除的关联关系还是会被显示出来。

 

For Each re As Relation In Relations
    e.Form.Controls("关联关系名称").items.add( Re.Name)
Next

 


此主题相关图片如下:dc55db054fdfb90b4174cb887d61bf7.png
按此在新窗口浏览图片

 

 

执行完以下命令后、再点击控件、被删除的关联关系还是会被显示出来。

 

If  Relations.Contains(e.Form.Controls("关联关系名称1").text) Then
    Relations.Delete(e.Form.Controls("关联关系名称1").text)
    MessageBox.Show("已删除: "& e.Form.Controls("关联关系名称1").text &" 关联关系")
Else
    MessageBox.Show("未查询到: "& e.Form.Controls("关联关系名称1").text &" 关联关系")
End If


 


此主题相关图片如下:f9271239c8b433e972fe8412be51196.png
按此在新窗口浏览图片
[此贴子已经被作者于2024/10/25 11:36:02编辑过]

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


加好友 发短信
等级:婴狐 帖子:42 积分:337 威望:0 精华:0 注册:2023/2/23 17:14:00
  发帖心情 Post By:2024/10/25 11:47:00 [只看该作者]

楼上问题麻烦帮忙看一下问题出在哪里?

 回到顶部
总数 18 1 2 下一页