以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]求助根据第二个表序列自动编号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144539)

--  作者：lds --  发布时间：2019/12/23 22:15:00 --  [求助]求助根据第二个表序列自动编号 此主题相关图片如下：自动编号.png 窗口录入信息表，商品代码列根据货类代码列的前两位生成商品信息表商品代码列原有序列+1的自动编号求助。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:编号求助.table

--  作者：有点蓝 --  发布时间：2019/12/23 22:51:00 --   Dim t As Table = Forms("录入窗口").Controls("Table1").Table For Each s As String In t.DataTable.SQLGetValues("mid(类别代码,1,2)","类别代码 is not null and len(类别代码) > 1")     \'Dim a As String = s.SubString(0,2)     Dim max As String = DataTables("商品信息").Compute("Max(商品代码)","商品代码 like \'" & s & "%\' ")     Dim id As Integer = 1     If max > "" Then         id = cint(max.SubString(2)) + 1     End If     For Each dr As DataRow In t.DataTable.Select("类别代码 like \'" & s & "%\'","")         dr("商品代码") = s & Format(id,"000000")         id += 1     Next Next

--  作者：lds --  发布时间：2019/12/23 23:12:00 --   谢谢蓝版，晚安！