主题：籍贯自动填充问题

     项目文件有二个数据表：“身份证属地表”和“员工信息表”。“身份证属地表”有‘籍贯编码’列和‘籍贯’列。“学生信息表”包含有‘身份证号’列和‘籍贯’列。通过以下代码可以实现，当在“学生信息表”‘身份证号’列中输入学生的身份证号并确认后，在‘籍贯’列中就可以自动生成籍贯地址。对单个学生的信息进行输入时，这种方法是可以的。但是现在学生的部分信息包括身份证号都是批量导入的。以下代码如何后可以做到一键（按钮）触发，批量填充‘籍贯’，或者自动判断，只要‘身份证号’列中有身份证号码，就自动批量填充‘籍贯’。先谢了！

Select Case e.DataCol.name
    Case "身份证号"
       If e.DataRow.IsNull("身份证号") Then
            e.DataRow("身份证属地") = Nothing
        Else
            Dim bm As String = e.DataRow("身份证号").SubString(0,6)
            Dim dr As DataRow = DataTables("身份证属地").Find("籍贯编码 = '" & bm & "'")
           If dr IsNot Nothing Then
                e.DataRow("籍贯") = dr("籍贯")
            End If
        End If
End Select