以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表间关联公式无法打开  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193862)

--  作者:wumingrong-2
--  发布时间:2024/10/22 16:41:00
--  表间关联公式无法打开

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

 

Syscmd.Table.ModifyDataRelation()


--  作者:有点蓝
--  发布时间:2024/10/22 17:04:00
--  
这种属于开发功能,所有的开发功能,在发布后都无法使用的。

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

--  作者:wumingrong-2
--  发布时间:2024/10/22 17:07:00
--  

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


--  作者:有点蓝
--  发布时间:2024/10/22 17:15:00
--  
如果没有添加过关联的表,可以使用代码处理:http://www.foxtable.com/webhelp/topics/1942.htm

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

--  作者:wumingrong-2
--  发布时间:2024/10/22 17:26:00
--  

 

这个是增加关联关系公式

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

 

这个是删除关联关系公式

Relations.Delete("关联1")

 

 

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


--  作者:有点蓝
--  发布时间:2024/10/22 17:27:00
--  
http://www.foxtable.com/webhelp/topics/1941.htm
--  作者:wumingrong-2
--  发布时间: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
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/10/24 17:40:00
--  
For Each re As Relation In Relations
    e.Form.Controls("关联关系名称").items.add( Re.Name)
Next

--  作者:wumingrong-2
--  发布时间: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
--  发布时间:2024/10/25 11:47:00
--  
楼上问题麻烦帮忙看一下问题出在哪里?