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


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

主题:[原创]关联数据

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/16 20:36:00 [显示全部帖子]

看到实例测试过才知道为什么

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/17 11:50:00 [显示全部帖子]

新建一个项目,重现您的问题,然后把这个项目发上来

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/18 8:55:00 [显示全部帖子]

备份项目。

给项目重新导入系统菜单试试:http://www.foxtable.com/webhelp/topics/1079.htm

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/20 10:51:00 [显示全部帖子]

打开菜单设计器,左下角:模板-》从模板生成,找到Foxtable安装目录里的System.foxrb

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/22 9:58:00 [显示全部帖子]

只能说自己写的代码有问题。或者被别人改了。具体实例发上来看看

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/22 10:44:00 [显示全部帖子]

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

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

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/22 11:51:00 [显示全部帖子]

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

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/22 14:41:00 [显示全部帖子]

开发者密码是多少

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


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望: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判断目的是为了在重置列的时候避免重复(或者重新)生成编号,如果没有这段代码,再加上代码里生成编号本来就不正确,一旦重置列就会出现前面说的问题了

 回到顶部
总数 20 上一页 1 2