For Each dr As DataRow In DataTables("待配组数据").DataRows
Dim s As String = dr("电芯编号")
dr("电芯编号") = s.SubString(0,11) & s.SubString(12).PadLeft(5,"0")Next
加好友 
发短信
Post By：2013/8/16 9:34:00 [显示全部帖子]
