主题：[原创]做了一个简单的批量导入照片的代码，请大家抛砖。

其实一直在慢慢完善我的小程序，今天突然发觉人员信息导入之后有好几百人员的照片需要一次导入过来，一直在想有什么好的办法，琢磨了下午写了几句代码，希望大家指点，如果有需要的请拿去用。

按钮代码:

If MessageBox.Show("批量导入照片一般用于人员信息导入之后操作,如果确定已经完成基础数据导入,可以使用本功能" & vbcrlf & "系统默认会在程序的Attachments文件夹内搜索文件!!","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning) = dialogresult.ok Then
    If CurrentTable.Rows.Count > 0 Then
        Dim lj As String = ProjectPath
        For Each dr As Row In CurrentTable.Rows
            Dim str1 As String =dr("人员编码") & "-" & dr("姓名") & ".jpg"
            If FileSys.FileExists("" & lj & "Attachments\" & str1 & "")  = True Then
                dr("照片") = dr("人员编码") & "-" & dr("姓名") & ".jpg"
            Else
                MessageBox.Show("未找到:" & lj & "Attachments\" & str1)
                dr("照片") = Nothing
            End If
        Next
    Else
        MessageBox.Show("当前表没有数据,无法执行该操作!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
    End If
End If