'……………以下是自动生成工号…………………………
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")
'……………以上是自动生成工号…………………………
想要实现窗口里面“序号”主动生成,并进行自动排列,出现了报错
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:tim截图20191218141305.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-12/2019121814161964327.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:tim截图20191218141216.png
[此贴子已经被作者于2019/12/18 14:18:04编辑过]