Foxtable(狐表)用户栏目专家坐堂 → [求助]有关父表子表


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

主题:[求助]有关父表子表

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


加好友 发短信
等级:一尾狐 帖子:474 积分:2982 威望:0 精华:0 注册:2018/1/15 13:54:00
[求助]有关父表子表  发帖心情 Post By:2020/10/16 0:30:00 [只看该作者]

老师好!窗口操作,外部数据源,access数据库,使用父表子表双向通过编号关联,编号通过代码实现。在实际使用中,偶尔会出现”子表有多个父表”错误提示(记不清了,也许是”子行有多个父行”),请问是如何造成的?是我操作的问题吗?如何操作可避免此错误的出现?(在录入数据数据时,偶尔会用到系统克隆功能,不知是否与此有关)。系统已在使用,出现此错误很纠结。请老师帮助!
[此贴子已经被作者于2020/10/16 0:46:17编辑过]

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/16 8:47:00 [只看该作者]

父表的关联列不能有重复的数据,比如:父表通过编号和子表关联,那么父表的编号不能重复。

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


加好友 发短信
等级:一尾狐 帖子:474 积分:2982 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2020/10/16 16:13:00 [只看该作者]

请问老师,在实际使用中如何避免父表的编号不重复?关联可否帮我写个判断代码,出现编号重复终止执行其它代码,提示修改。不了解是否是克隆行引起的。

'自动编号代码,根据内部编号关联
Select e.DataCol.Name
    Case "接单日期","单位代码"
        If e.DataRow.IsNull("接单日期") OrElse e.DataRow.IsNull("单位代码") Then
            e.DataRow("内部编号") = Nothing
        Else
            Dim d As Date = e.DataRow("接单日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = e.DataRow("单位代码") & "-" & Format(d,"yyyyMM") & "-" '生成编号的前缀
            If e.DataRow("内部编号").StartsWith(bh) = False '如果内部编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "单位代码 = '"& e.DataRow("单位代码") & "' And 接单日期 >= #" & fd & "# And 接单日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(内部编号)",flt) '取得该月的相同单位代码的最大内部编号
                If max > "" Then '如果存在最大内部编号
                    idx = CInt(max.Substring(14,3)) + 1 '获得最大内部编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("内部编号") = bh & Format(idx,"000")
            End If
        End If
End Select


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


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

如果是多人使用的,需要有一个统一的服务端生成编号,比如:http://www.foxtable.com/webhelp/topics/3008.htm

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


加好友 发短信
等级:一尾狐 帖子:474 积分:2982 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2020/10/16 17:00:00 [只看该作者]

也就是说,我目前使用的编号代码要修改为网络环境下的代码?

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


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

对的

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


加好友 发短信
等级:一尾狐 帖子:474 积分:2982 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2020/10/20 8:36:00 [只看该作者]

老师好!网络环境编号,按照帮助,做了个与实际使用环境及编号规则一样的实例,实例测试正常,若将实例代码移植到实际使用的软件中,需要注意什么?使用时会不与之前的编号产生冲突或重复编号?

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/20 8:51:00 [只看该作者]

只要生成编号的规则和逻辑是一样的,一般不会产生冲突

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


加好友 发短信
等级:一尾狐 帖子:474 积分:2982 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2024/1/8 12:34:00 [只看该作者]

SQL,子表根据主表编号关联,逻辑列选中,会显示与主表相关联的子表,此时,修改主表单元格内容对应子表记录也会随之修改,若不选中逻辑列,子表此时未加载,想实现在不加载子表的情况下,修改主表内容后,子表也会随之修改,应该如何做

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/8 13:29:00 [只看该作者]


 回到顶部