- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]报错：索引和长度必须引用该字符串内的位置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144383)
-- 发布时间：2019/12/18 14:16:00
-- [求助]报错：索引和长度必须引用该字符串内的位置
\'……………以下是自动生成工号…………………………
Dim i As String = DataTables("日志").Compute("max(序号)")
Dim idx As Integer
If i > "" Then \'若有最大值,即表数据不为空
idx = CInt(i.SubString(2,3)) + 1 \'提取字符串i里的数字,并加1
Else
idx = 1 \'若表数据为空 就=1
End If
Tables("日志").Current("序号") = "" & Format(idx,"000")
\'……………以上是自动生成工号…………………………
想要实现窗口里面“序号”主动生成，并进行自动排列，出现了报错
此主题相关图片如下：tim截图20191218141305.png
此主题相关图片如下：tim截图20191218141305.png此主题相关图片如下：tim截图20191218141216.png
[此贴子已经被作者于2019/12/18 14:18:04编辑过]
-- 发布时间：2019/12/18 14:31:00
--
If i > "" Then \'若有最大值,即表数据不为空
idx = CInt(i) + 1 \'提取字符串i里的数字,并加1
Else
idx = 1 \'若表数据为空 就=1
End If
-- 发布时间：2019/12/18 14:39:00
--
谢谢！