Foxtable(狐表)用户栏目专家坐堂 → 新建物料档案时报错


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

主题:新建物料档案时报错

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


加好友 发短信
等级:幼狐 帖子:170 积分:1372 威望:0 精华:0 注册:2016/12/28 19:32:00
新建物料档案时报错  发帖心情 Post By:2017/2/20 17:43:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170220173203.jpg
图片点击可在新窗口打开查看

老师你好,我复制粘贴了一部分基础商品信息资料后,后来我设计了一个窗口,用来新建商品信息,商品编码
我设计了自动生成编码,代码参照帮助里面操作的(如下)

If e.DataCol.Name = "制单时间" Then
    If e.DataRow.IsNull("制单时间") Then
        e.DataRow("商品编码") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("制单时间"),"yyyyMMdd") '取得编号的8位前缀
        If e.DataRow("商品编码").StartsWith(bh) = False '如果编号的前8位不符
            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(9,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("商品编码") = bh & "-" & Format(idx,"000")
        End If
    End If
End If

增加按钮部分代码如下:
With Tables("商品信息")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Tables("商品信息").AddNew()
    End If
End With

报错提示好像是长度问题,请老师指点要如何操作?

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/20 18:20:00 [只看该作者]

看代码,应该是没问题的。你把商品编码列的值,都删除,重新生成。

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


加好友 发短信
等级:幼狐 帖子:170 积分:1372 威望:0 精华:0 注册:2016/12/28 19:32:00
  发帖心情 Post By:2017/2/21 17:49:00 [只看该作者]

谢谢

 回到顶部