可以在对应表的 DataColChanged 事件中写入以下代码,就可以实现从身份证号码中提取后6位数
Select Case e.DataCol.Name
Case "身份证号码"
Dim dr As DataRow = e.DataRow
Dim s As String = dr("身份证号码")
If s.length = 18 Then
dr("身份证后6位") = s.Substring(12)
ElseIf s.length = 15 then
dr("身份证后6位") = s.Substring(9)
End If
End Select