主题：[求助]这段代码如何写？

 
此主题相关图片如下：完整身份证替换.png

我在“储蓄积分”表中前后导入两批数据，区别在于第一次身份证号码后三位是0截除了，这次身份证号码是完整的，现在要用完整的身份证替换不完整的，代码怎么写？写在哪儿？

比如：艾永华 340104194106270 

        艾永华 340104194106270015  要用完整的身份证替换不完整的

程序大于2M，我上传了截图。谢谢

要实现这个功能，代码怎么写？

        Dim dr As DataRow = DataTables("储蓄积分").Find("身份证号码 = '" & r("身份证号码").SubString(0,6) & r("身份证号码").SubString(8,9) & "'")

上面的语句能找到同名，且身份证号码前15位相同么？

你理解错了，第一次导入的15位号码，是因为某种原因18位号码后三位全是0，所以就只截取前15位，现在能导入完整的18位号码了。

所以就要把原先的15位号码替换为18位。请看我前面的图。

就是：1、找出同名同姓的而且身份证号码前15位相同的记录，比如“艾永华”“安建徽”“包茂进”

         2、用18位的身份证号码替换15位的。比如“包茂进”的“330724195810127”替换为“330724195810127117”。你看包茂进身份证号码前15位是相同的吧。

我不知道代码怎么写，请教下。

代码写在表属性“datacolchanged“事件中，选择”身份证号码“列或者整张表，运行重置列，几分钟后就退出程序。

在进去看，没有变化。

考虑重名的情况下，19楼代码是这样么：

 单独把数据导出来，用11楼的代码做没有问题。但是放在”储蓄积分“数据表的"datacolchanged”事件中运行程序就退出，没有得到我要的结果。

代码如下：

'完善身份证号码
If e.DataCol.Name = "身份证号码" Then
    For Each r As DataRow In DataTables("储蓄积分").DataRows
        If r("身份证号码").Length = 18
            Dim dr As DataRow = DataTables("储蓄积分").Find("客户名称 = '" & r("客户名称") & "' and 身份证号码 = '" & r("身份证号码").SubString(0,15) & "'")
            If dr IsNot Nothing Then '如果找到的话
                dr("身份证号码") = r("身份证号码")
            End If
        End If
    Next
End If

'计算储蓄积分
If e.DataCol.Name = "日均余额" Then
    If e.DataRow.IsNull(e.DataCol) = False Then
        Select Case e.DataRow(e.DataCol)
            Case 0.00 To 50000.00
                e.DataRow("储蓄积分") = 50
            Case 50000.000001 To 100000.00
                e.DataRow("储蓄积分") = 100
            Case 100000.000001 To 200000.00
                e.DataRow("储蓄积分") = 150
            Case 200000.000001 To 300000.00
                e.DataRow("储蓄积分") = 180
            Case 300000.000001 To 400000.00
                e.DataRow("储蓄积分") = 220
            Case 400000.000001 To 500000.00
                e.DataRow("储蓄积分") = 280
            Case 500000.000001 To 800000.00
                e.DataRow("储蓄积分") = 300
            Case 800000.000001 To 1000000.00
                e.DataRow("储蓄积分") = 350
            Case 1000000.00 To 2000000.00
                e.DataRow("储蓄积分") = 400
            Case 2000000.00 To 5000000.00
                e.DataRow("储蓄积分") = 500
            Case 5000000.00 To 50000000.00
                e.DataRow("储蓄积分") = 600
        End Select
    Else
        e.DataRow("储蓄积分") = Nothing
    End If
Else
    If e.DataCol.Name = "储蓄积分" Then
        DataTables("客户资料").DataCols("客户名称").RaiseDataColChanged(" 客户名称 = '" & e.DataRow("客户名称") & "' and  身份证号码 = '" & e.DataRow("身份证号码") & "'  ")
    End If
End If

''在客户资料中加入没有的客户
Select Case e.DataCol.name
    Case  "身份证号码","客户名称"
        If e.DataRow.Isnull("身份证号码")=False Then
            Dim dr As DataRow = DataTables("客户资料").Find(" 客户名称 ='" & e.DataRow("客户名称") & "'  and   身份证号码 ='" & e.DataRow("身份证号码") & "'")
            If dr Is Nothing Then
                dr = DataTables("客户资料").addnew
                dr("客户名称")=e.DataRow("客户名称")
                dr("身份证号码")=e.DataRow("身份证号码")
               
            End If
        End If
End  Select