以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  版本图号升级  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149556)
--  作者：有点蓝
--  发布时间：2020/5/6 11:44:00
--  
新增按钮

dim r as row = tables("xxx").addnew
dim max as string = tables("xxx").comoute("max(版本图号)")
if max > "" then
r("版本图号")  = "A" &  (cint(mas.substring(1)) + 1)
else
r("版本图号")  = "A0"
end if
--  作者：有点蓝
--  发布时间：2020/5/6 13:51:00
--  
别的字母从哪里来？
dim max as string = tables("xxx").compute("max(版本图号)")
--  作者：有点蓝
--  发布时间：2020/5/6 14:03:00
--  
所以为就问怎么知道是A还是B，这些字母从哪来？
--  作者：有点蓝
--  发布时间：2020/5/6 14:57:00
--  
没看懂
--  作者：有点蓝
--  发布时间：2020/5/7 9:27:00
--  
r2("版本图号")  = max(0) &  (cint(max.substring(1)) + 1)
--  作者：有点蓝
--  发布时间：2020/6/4 16:20:00
--  
Dim max As String = Tables("联络单审核_联络通知单").compute("max(审核顺序)")
msgbox(max)
If max > "" Then
    e.Form.Controls("审核顺序3").text  = max(0) &  (cint(max.substring(1)) + 1)
End If