![](images/userface/image1.gif)
加好友 发短信
等级:超级版主
帖子:107680
积分:547721
威望:0
精华:9
注册:2015/6/24 9:21:00
|
Post By:2015/8/16 23:01:00 [显示全部帖子]
改成这样试一下 For Each r As DataRow In DataTables("储蓄积分").DataRows If r("身份证号码").Length = 18 Dim dr As DataRow = DataTables("储蓄积分").Find("身份证号码 ='" & r("身份证号码").SubString(0,16) & “'" ) If dr IsNot Nothing Then '如果找到的话 dr("身份证号码") = r("身份证号码") End If End IfNext
|
|