主题：[求助]mid变为不可用函数了？如附件

此主题相关图片如下：mid.png

 测试没有问题，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"

<!--EndFragment-->

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

 

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