以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]对现有记录增加编号的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61733)
--  作者：瞩望星空
--  发布时间：2014/12/18 9:33:00
--  [求助]对现有记录增加编号的问题
有一表，增加了一列“编号”（C,12），现在想以前头字母为"ABCD-"，再加后7位记录位置作为编号。
参考帮助“自动编号”的写法，用下面代码出错。

For Each dr As DataRow In DataTables("表A").datarows 
            dr("编号") ="ABCD-" + SubString("0000000", 1, 7 - Len(Convert([_Identify],\'System.String\'))) + Convert([_Identify], \'System.String\') 
Next 
　
[此贴子已经被作者于2014-12-18 9:32:53编辑过]
--  作者：有点甜
--  发布时间：2014/12/18 10:02:00
--  

 你这种是表达式列的公式来的。

 

 如果要写代码，参考 http://www.foxtable.com/help/topics/2403.htm

 
--  作者：瞩望星空
--  发布时间：2014/12/18 11:28:00
--  

嗯，找错帮助位置了。应该可以搞掂。

最后的代码如下:
Dim max As Integer=0
For Each dr As DataRow In DataTables("表A").datarows
        max=max+1
        dr("编号") ="ABCD-" & Format(max,"0000000")
Next
 

[此贴子已经被作者于2014-12-18 22:04:22编辑过]