For Each dr As DataRow In DataTables("员工").Select("[选中] = true") For Each cdr As DataRow In DataTables("附件").Select("姓名 = '" & dr("姓名") & "'") Dim fl As String = ProjectPath & cdr("文件名") If dr.SQLLoadFile("附件",fl) = False Then '如果提取文件失败 Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information) End If Next Next