- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请老师指定一下，为啥出现这个错误，数据库是access的，单号是字符型的 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150236)
-- 发布时间：2020/5/24 20:37:00
-- 请老师指定一下，为啥出现这个错误，数据库是access的，单号是字符型的
Dim bh As String ="XS" & Format(Date.Today ,"yyyyMMdd") \'取得编号的8位前缀
Dim max As String
Dim idx As Integer
max = DataTables("购买表头").sqlCompute("Max(单号)","日期 >= \'" & Date.Today & "\' and 日期 <= \'" & Date.Today.AddDays(1) & "\'") \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(10,4)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
bh= bh & Format(idx,"0000")
Return bh
此主题相关图片如下：1.png
请老师指定一下，为啥出现这个错误，数据库是access的，单号是字符型的
[此贴子已经被作者于2020/5/24 20:37:22编辑过]
-- 发布时间：2020/5/24 22:27:00
--
max = DataTables("购买表头").sqlCompute("Max(单号)","日期 >= #" & Date.Today & "# and 日期 <= #" & Date.Today.AddDays(1) & "#")