主题：怎样提取后6位

'表属性-数据-DataColChanged
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 = d.SubString(d.length - 6,6)

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