- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]从字符串“20190628-0001”到类型“Double”的转换无效 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137152)
-- 发布时间：2019/6/28 19:38:00
-- [求助]从字符串“20190628-0001”到类型“Double”的转换无效
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Dim str2 = DataTables("移动优化整治项目清单表").sqlCompute("Max(序号)", "日期 = \'"& format(dt,"yyyy-MM-dd") &"\' ")
If str2 IsNot Nothing Then
e.Form.Controls("主工单号").text = format(dt,"yyyyMMdd") & "-" & format(str2 + 0001,"0000")
Vars("序号") = format(str2 + 0001,"0000")
Else
e.Form.Controls("主工单号").text = format(dt,"yyyyMMdd") & "-" & 0001
Vars("序号") = "0001"
End If
此主题相关图片如下：360截图20190628193654448.jpg
-- 发布时间：2019/6/28 20:22:00
--
e.Form.Controls("主工单号").text = format(dt,"yyyyMMdd") & "-" & format(val(str2) + 1,"0000")
-- 发布时间：2019/6/29 14:20:00
--
如果想让 Vars("序号") = e.Form.Controls("主工单号").text 控件中的后面4位数，命令该怎么写？
-- 发布时间：2019/6/29 15:39:00
--
参考：http://www.foxtable.com/webhelp/topics/0240.htm
dim s as string = e.Form.Controls("主工单号").text
Vars("序号") = s.substring(s.length - 4)