- 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)
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2016/8/23 10:43:00
--
好使了，感谢老师