[求助] 关联问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 关联问题

共有2740人关注过本帖树形打印复制链接主题：[求助] 关联问题

sjx71

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：476 积分：4602 威望：0 精华：0 注册：2013/5/22 15:32:00

[求助] 关联问题 发帖心情

Post By：2016/6/11 22:22:00 [显示全部帖子]

各位老师，我有个程序今天运行出了问题，加载表的时候提示如下错误信息，然后就退出程序了

dvubb 此主题相关图片如下：错误.jpg

程序中公服用户单位名称和公服用户表信息之间建立了关联，

dvubb 此主题相关图片如下：关联.jpg

出现问题前我做了如下操作

我在外部表设置中（公服用户单位名称和公服用户表信息）设置过滤条件为 [_Identify] Is Null

然后再 AfterOpenProject 里写过

Tables("公服用户表单位名称").OpenLoadTree("公服用户单位名称",150,30,True)

后又改写成分页加载

With DataTables("公服用户单位名称")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With

最后我把 AfterOpenProject 事件和外部表设置的过滤条件都删除之后就出现了上述问题。

老师帮我分析一下什么问题，怎么改

谢谢

sjx71

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：476 积分：4602 威望：0 精华：0 注册：2013/5/22 15:32:00

Post By：2016/6/12 8:33:00 [显示全部帖子]

谢谢老师，确实是有重复值，删除重复值就好了。

再问一个问题，怎么会出现重复值了呢，我程序里也写了防止重复的代码了，哪个操作可能会导致重复值？

Select e.DataCol.name

Case "公服用户单位名称"

If e.DataRow.IsNull("公服用户单位名称") = False Then

If e.DataTable.Compute("Count([_Identify])","公服用户单位名称 = '" & e.NewValue & "'") > 1 Then

MessageBox.Show(e.DataRow("公服用户单位名称") & "在本表中已经存在!")

e.DataRow("公服用户单位名称") = e.OldValue

ElseIf DataTables("销户公服用户单位名称").Compute("Count([_Identify])","公服用户单位名称 = '" & e.NewValue & "'") > 0 Then

MessageBox.Show(e.DataRow("公服用户单位名称") & "在销户公服用户单位名称表中已经存在!")

e.DataRow("公服用户单位名称") = e.OldValue

End If

谢谢

sjx71

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：476 积分：4602 威望：0 精华：0 注册：2013/5/22 15:32:00

Post By：2016/6/12 8:59:00 [显示全部帖子]

谢谢！

下一主题 >> << 上一主题

主题：[求助] 关联问题