- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请求填充代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8869)
-- 发布时间：2010/12/17 16:05:00
-- 请求填充代码
该表有【身份证号】列（字符型列）和【第1位】列到【第18位】列（整数型列），求将身份证号的18位数值从左到右依次填入到【第18位】至【第1位】列中，一列一个数值。我已经做了【第18位】至【第16位】三列。但按我这种方法，代码太长，现请求一种简单一点的方法。请老师帮忙。谢谢！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:身份证号.table |
-- 发布时间：2010/12/17 16:40:00
--
If e.DataCol.Name = "身份证号" Then
Dim s As String = e.DataRow("身份证号")
For i As Integer = 1 To Math.Min(s.Length,18)
e.DataRow("第" & i & "位") = s.SubString(i-1,1)
Next
End If
-- 发布时间：2010/12/17 17:07:00
--
谢谢贺老师！不过顺序反了，应该是将身份证左边第1个数值填入到第18位列，第2个数值填入到【第17位】。。。。。。。，可否调整代码，如果不行，我就调整列名称。
-- 发布时间：2010/12/17 17:12:00
--
调整列名称吧
-- 发布时间：2010/12/17 17:29:00
--
好的，谢谢贺老师！