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


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

主题:[求助]

帅哥,在线噢!
有点蓝
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


加好友 发短信
等级:童狐 帖子:276 积分:2412 威望:0 精华:0 注册:2013/2/11 23:21:00
  发帖心情 Post By:2019/1/11 23:20:00 [只看该作者]

我用按类别编号,新插入一列后粘贴代码没有反应是啥问题?

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


加好友 发短信
等级:童狐 帖子:276 积分:2412 威望:0 精华:0 注册:2013/2/11 23:21:00
  发帖心情 Post By:2019/1/11 23:25:00 [只看该作者]

直接打开项目文件时,出现这个是哪里的问题?
图片点击可在新窗口打开查看此主题相关图片如下:snipaste_2019-01-11_23-20-49.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

回22楼,粘贴了什么代码?

回23楼,重新安装Foxtable即可

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


加好友 发短信
等级:童狐 帖子:276 积分:2412 威望:0 精华:0 注册:2013/2/11 23:21:00
  发帖心情 Post By:2019/1/12 22:43:00 [只看该作者]

重新安装后解决问题。粘贴代码是这个:
Select e.DataCol.Name
     Case  "单位"
          If e.DataRow.IsNull("单位") Then
             e.DataRow("编号") = Nothing
         Else
             Dim lb As  String = e.DataRow("单位")
             If e.DataRow("编号").StartsWith(lb) = False  '如果单据编号前缀不符
                Dim max  As  String
                 Dim idx  As  Integer
                max = e.DataTable.Compute("Max(编号)","单位 = '" & lb  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > ""  Then  '如果存在最大编号
                    idx = CInt(max.Substring(2,3)) + 1  '获得最大编号的后三位顺序号,并加1
                 Else
                     idx = 1  '否则顺序号等于1
                 End  If
                 e.DataRow("编号") = lb & Format(idx,"000")
             End If
         End  If
 End  Select

 回到顶部
总数 25 上一页 1 2 3