主题：总分唯一排名代码问题

For Each File As String In FileSys.GetFiles("G:\项目1\项目11\新建文件夹\") '从指定文件夹中 

 Dim dr As datarRow = dataTables("表A").find("文件完整路径及文件名='" & File & "'")

if dr is nothing then

 dr = dataTables("表A").AddNew

 dr("文件完整路径及文件名") = File

end if

NeXt

For Each File As String In FileSys.GetFiles(ProjectPath & "\Attachments\照片文件夹\")

        Dim str As String = FileSys.GetName(File)

        Dim czkh As DataRow = DataTables("提取文件名").find("身份证号码= '" & str.split(".")(0)  & "'") '精确查找     

If czkh Isnot Nothing Then 

czkh("照片列") = str

endif

       

Next