以下是引用有点甜在2014-8-7 19:05:00的发言：
执行这句代码报错msgbox(Mid("ddd",2))
还是执行什么代码报错？我测试没有问题。
临时版本跟踪表_DataRowAdded
Dim d As Date = Date.Today
Dim m As String = Format(d,"MM")
Dim y As String = Format(d,"yyyy")
Dim max As String
Dim idx As Integer
max = e.DataTable.SQLCompute("Max(内部编号)","Mid(内部编号,1,2) = '" & m & "' and mid(内部编号,5,5) = '-" & y & "'")
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(m.Length,2)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("内部编号") = m & Format(idx,"00") & "-" & y
e.DataRow.Save
Tables("临时版本跟踪表").Sort = "需求编号 DESC"
<!--EndFragment-->
加好友 
发短信
Post By：2014/8/7 16:45:00 [显示全部帖子]
此主题相关图片如下：mid.png