Foxtable(狐表)用户栏目专家坐堂 → [求助]老师,帮我看一下自动编号这段报错


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

主题:[求助]老师,帮我看一下自动编号这段报错

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


加好友 发短信
等级:超级版主 帖子:110528 积分:562524 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/25 19:55: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(编号)","英文简写 = '" & e.DataRow("英文简写") & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别代号的最大产品编号
                If max > "" Then '如果存在最大产品编号
                    idx = CInt(max.Substring(max.Length -4,4)) + 1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("编号") = lb & Format(idx,"0000")
            End If
        End If

End Select

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


加好友 发短信
等级:超级版主 帖子:110528 积分:562524 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/25 23:15:00 [显示全部帖子]

回3楼,英文简写列的表达式是什么?

回4楼、按钮里设置SplitterDistance:http://www.foxtable.com/webhelp/topics/0819.htm

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


加好友 发短信
等级:超级版主 帖子:110528 积分:562524 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/26 10:16:00 [显示全部帖子]

通过什么列和父表关联的?改为关联列

Select e.DataCol.Name
    Case "关联列"
        If e.DataRow.IsNull("关联列") Then

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


加好友 发短信
等级:超级版主 帖子:110528 积分:562524 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/26 11:42:00 [显示全部帖子]


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


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

代码里的英文简写改为设备型号

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


加好友 发短信
等级:超级版主 帖子:110528 积分:562524 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/26 16:02:00 [显示全部帖子]

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


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


加好友 发短信
等级:超级版主 帖子:110528 积分:562524 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/27 11:21:00 [显示全部帖子]

遍历所有行,逐一处理:http://www.foxtable.com/webhelp/topics/0419.htm

 回到顶部