哦哦，那这样
For Each r As DataRow In DataTables("储蓄积分").DataRows
If r("身份证号码").Length = 18
Dim dr As DataRow = DataTables("储蓄积分").Find("身份证号码 = '" & r("身份证号码").SubString(0,15) & "'")
If dr IsNot Nothing Then '如果找到的话
dr("身份证号码") = r("身份证号码")
End If
End If
Next
加好友 
发短信
Post By：2015/8/15 23:10:00 [只看该作者]
