标题：请求填充代码

该表有【身份证号】列（字符型列）和【第1位】列到【第18位】列（整数型列），求将身份证号的18位数值从左到右依次填入到【第18位】至【第1位】列中，一列一个数值。我已经做了【第18位】至【第16位】三列。但按我这种方法，代码太长，现请求一种简单一点的方法。请老师帮忙。谢谢！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:身份证号.table

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

谢谢贺老师！不过顺序反了，应该是将身份证左边第1个数值填入到第18位列，第2个数值填入到【第17位】。。。。。。。，可否调整代码，如果不行，我就调整列名称。

调整列名称吧

好的，谢谢贺老师！