以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 根据一段数自动生成序号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89482) |
-- 作者:18804248860 -- 发布时间:2016/8/23 8:26:00 -- [求助] 根据一段数自动生成序号 ![]() 代码我是这样写的 Select Case e.DataCol.name Case "点检序号" If e.DataRow.IsNull("点检序号") = True Then e.DataRow("作业区") = Nothing e.DataRow("点检区") = Nothing e.DataRow("序号") = Nothing Else e.DataRow("作业区") = GetDigit(e.DataRow("点检序号"),5) e.DataRow("点检区") = GetDigit(e.DataRow("点检序号"),4) & GetDigit(e.DataRow("点检序号"),3) e.DataRow("序号") = GetDigit(e.DataRow("点检序号"),2) & GetDigit(e.DataRow("点检序号"),1) & GetDigit(e.DataRow("点检序号"),0) End If End Select 这样写完之后 101001 分别对应 1 01 001 怎么才能将前面的0 去掉? 变成 1 1 1
|
-- 作者:Hyphen -- 发布时间:2016/8/23 9:00:00 -- Select Case e.DataCol.name Case "点检序号" If e.DataRow.IsNull("点检序号") = True Then e.DataRow("作业区") = Nothing e.DataRow("点检区") = Nothing e.DataRow("序号") = Nothing Else Dim xh As String = e.DataRow("点检序号") e.DataRow("作业区") = val(xh.Chars(0)) e.DataRow("点检区") = val(xh.SubString(1,2)) e.DataRow("序号") = val(xh.SubString(3)) End If End Select
|
-- 作者:18804248860 -- 发布时间:2016/8/23 10:43:00 -- 好使了,感谢老师 |