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

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

 

Syscmd.Table.ModifyDataRelation()

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

 

这个是增加关联关系公式

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

 

这个是删除关联关系公式

Relations.Delete("关联1")

 

 

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

这个下拉菜单如何显示用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

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

 

 

此主题相关图片如下：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

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

这么写好像不对

 

 

此主题相关图片如下：118618ae84ec37453c2b027227a0c17.png

还是不行哦

 

 

此主题相关图片如下：9030b840becc7a51d0c3cf774519557.png


此主题相关图片如下：1534ed339931e0bc9ca49c8388c1162.png


此主题相关图片如下：82daf824653eff0b99c51e559d36969.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

e.Form.Controls("关联关系名称1").Value = Nothing

 

 

 

 

 

 

控件命令：

 

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

OK啦、谢谢