- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老师我这个自编号的语句有错误吗? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161460)
-- 发布时间：2021/3/18 10:40:00
-- 老师我这个自编号的语句有错误吗?
Dim bh As String ="FSL"
Dim max As String
Dim idx As Integer
max = DataTables("商品档案").sqlCompute("Max(编号)") \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(3,5)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
bh= bh & Format(idx,"00000")
Return bh
-- 发布时间：2021/3/18 10:44:00
--
代码在什么事件？使用上有什么问题？
-- 发布时间：2021/3/18 10:56:00
--
此主题相关图片如下：qq图片20210318105405.png
-- 发布时间：2021/3/18 11:00:00
--
编程这么久还不会调试么？调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
Dim bh As String ="FSL"
Dim max As String
Dim idx As Integer
max = DataTables("商品档案").sqlCompute("Max(编号)") \'取得该天的最大编号
Dim max As String
Dim idx As Integer
max = DataTables("商品档案").sqlCompute("Max(编号)") \'取得该天的最大编号
msgbox(max )
If max > "" Then \'如果存在最大编号
msgbox(max.Substring(3,5))
idx = CInt(max.Substring(3,5)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
bh= bh & Format(idx,"00000")
Return bh
idx = CInt(max.Substring(3,5)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
bh= bh & Format(idx,"00000")
Return bh
-- 发布时间：2021/3/18 11:55:00
--
找到原因了
[此贴子已经被作者于2021/3/18 11:55:58编辑过]