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

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