以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  自动编号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132133)

--  作者：巷弄太过弯曲 --  发布时间：2019/3/14 16:31:00 --  自动编号 老师帮我看看这个代码 没新增一行 序号+1 但是最大只能到序号10  Tables("WIFI查询资料").AddNew Dim i As String = DataTables("WIFI查询资料").Compute("max(序号)") Dim idx As Integer If i > "" Then       idx = cint(i.SubString(0,1)) +1 Else     idx =1 End If Tables("WIFI查询资料").Current("序号") = ForMAT(idx,"00")

--  作者：有点甜 --  发布时间：2019/3/14 16:44:00 --   Dim r = Tables("WIFI查询资料").AddNew Dim i As String = DataTables("WIFI查询资料").Compute("max(序号)") Dim idx As Integer If i > "" Then      idx = val(i) +1 Else     idx =1 End If r("序号") = ForMAT(idx,"00")

--  作者：巷弄太过弯曲 --  发布时间：2019/3/14 16:50:00 --   谢谢