以下是引用caoxy在2011-3-13 22:33:00的发言：
Dim drs As List(Of DataRow)
drs = DataTables("表").Select("","编号 Desc")
e.DataRow("编号") = drs(0)("编号").substring(0,2) & drs(0)("编号").substring(2)+1)
这组代码我没有试验成功，请师傅以材料交货单为例，以编号“ZT000000”开始，写一组代码，并指明放置位置，在此表示衷心的感谢。
这组代码我没有试验成功，也不说怎么没成功！ 且上面代码最后多了一个“）”。
你也没有提供个例子，难怪帮你的人这么少啊，估计这样吧：
e.DataRow("编号") = drs(0)("编号").substring(0,2) & format(drs(0)("编号").substring(2)+1,"000000")
加好友 
发短信
Post By：2011/3/14 12:42:00 [显示全部帖子]
