Foxtable(狐表)用户栏目专家坐堂 → [原创]关联数据


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

主题:[原创]关联数据

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


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

代码有问题,和你之前的数据是否正常没有任何关系。

复制项目,把外部表转换为内部表,然后上传。
或者把数据库备份一个,清除隐私数据,然后数据库和项目一起上传

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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/22 11:16:00 [只看该作者]

怎么样把外部表转换为内部表呢?麻烦请指导下, 谢谢。

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


加好友 发短信
等级:超级版主 帖子:106097 积分:539590 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/22 11:51:00 [只看该作者]

重定向即可,记得先备份项目:
图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/22 11:58:00 [只看该作者]

是否会影响他们正常使用?

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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/22 12:19:00 [只看该作者]

可是没有任何数据喔

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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/22 12:21:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:order_tracking.foxdb


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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/22 13:49:00 [只看该作者]

请查看下, 谢谢

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


加好友 发短信
等级:超级版主 帖子:106097 积分:539590 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/22 14:41:00 [只看该作者]

开发者密码是多少

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


加好友 发短信
等级:幼狐 帖子:70 积分:460 威望:0 精华:0 注册:2019/5/13 17:09:00
  发帖心情 Post By:2019/7/22 14:45:00 [只看该作者]

004

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


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

1、新增行的权限应该放到BeforeAddDataRow,而不是DataRowAdding
2、生成编号的代码有许多的漏洞
    Case "下单日期","任务类别代号"
        If e.DataRow.IsNull("下单日期") OrElse e.DataRow.IsNull("任务类别代号") Then
            e.DataRow("任务号") = Nothing
        Else
            Dim d As Date = e.DataRow("下单日期")
            Dim bh As String = e.DataRow("任务类别代号") & Format(d,"yyMM") '生成编号的前缀
            If e.DataRow("任务号").StartsWith(bh) = False
                cnt = DataTables("order_tracking").SQLCompute("max(任务号)", ("任务号 Like '"+bh+"%' "))
                If cnt="" Then '判断下单月份是否新的
                    idx = 1 '否则顺序号等于1
                Else
                    idx = CInt(cnt.Substring(cnt.Length-3,3)) + 1 '获得最大单据编号的后四位顺序号,并加1
                End If
                e.DataRow("任务号") = bh & Format(idx,"000")
            End If
        End If

帮助的的每一段代码里的每一句很多时候都有一定的意义的,不然又何必放到帮助中,麻烦先理解然后再用。这一段if判断目的是为了在重置列的时候避免重复(或者重新)生成编号,如果没有这段代码,再加上代码里生成编号本来就不正确,一旦重置列就会出现前面说的问题了

 回到顶部
总数 62 上一页 1 2 3 4 5 6 7 下一页