- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 新建物料档案时报错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96428)
-- 发布时间：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
报错提示好像是长度问题，请老师指点要如何操作？
-- 发布时间：2017/2/20 18:20:00
--
看代码，应该是没问题的。你把商品编码列的值，都删除，重新生成。
-- 发布时间：2017/2/21 17:49:00
--
谢谢