主题：怎样提取后6位

此主题相关图片如下：qq截图20121109220420.png

怎样在表 身份证号列提取后6位到密码列

请师傅指点，谢谢！

谢谢！

If e.DataCol.Name = "身份证号" Then
If e.DataRow.IsNull("身份证号") Then
e.DataRow("密码") = Nothing
Else
Dim d As String = e.DataRow("身份证号")
If ValidPIN(d) Then

d = right(d,6) '这样简单点
e.DataRow("密码") = d
Else
messagebox.show("身份证号码不正确!")
e.DataRow("密码") = Nothing
End If
End If
End If

怎样18位可以，但还有15位就不行了。