报错语句 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报错语句

共有2554人关注过本帖树形打印复制链接主题：报错语句

xxfoxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15867 威望：0 精华：0 注册：2017/6/1 23:12:00

报错语句

Post By：2021/3/24 21:43:00 [只看该作者]

Dim h As String

Dim d As Date = #03/24/2021#

Dim d1 As Date = new Date(d.Year,1,1)

Dim d2 As Date = new Date(d.Year+1,1,1)

Dim max As String

Dim idx As Integer

Dim i As Integer

i="abc".length

max = DataTables("出库").sqlCompute("Max(单号)","日期 >=#" & d1 &"# And 日期 < #" & d2 &"# And left(单号,i)='abc'") '取得该天的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(i,6)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

h = "abc" & Format(idx,"000000")

msgbox(h)

老师这句话报错,And left(单号,i)='abc' 加上报错,去掉就不报错了, 这样写不行吗?

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/25 8:22:00 [只看该作者]

max = DataTables("出库").sqlCompute("Max(单号)","日期 >=#" & d1 &"# And 日期 < #" & d2 &"# And left(单号,3)='abc'")

xxfoxtable

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1696 积分：15867 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2021/3/25 8:54:00 [只看该作者]

i不是固定值，如果是固定值，我就按你这样写了，不会写i了，这只是个例子

[此贴子已经被作者于2021/3/25 8:54:29编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106732 积分：542855 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/25 8:57:00 [只看该作者]

And left(单号,3)='abc'")

如果后面的abc是固定值，那么这个3肯定也是固定值。要么2个都不是固定值

And left(单号," & i & ")='" & 某个变量值 & "'")

下一主题 >> << 上一主题

主题：报错语句