测试没有问题，msgbox(Mid("ddd",2))

 你试试升级到最新版

采用0806最新的版本还是出现同样的提示

执行这句代码报错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"

 如果是sqlserver数据源，就改成 SubString

 max = e.DataTable.SQLCompute("Max(内部编号)","SubString(内部编号,1,2) = \'" & m & "\' and SubString(内部编号,5,5) = \'-" & y & "\'")