此主题相关图片如下：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
报错提示好像是长度问题，请老师指点要如何操作？
加好友 
发短信
Post By：2017/2/20 17:43:00 [显示全部帖子]
