If Tables("出库.出库明细") .Current.Isnull("审核人") = True Then
If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Dim lst As List(of String) = Tables("出库.出库明细").Current.DataRow.Lines("送货单")
For Each s As String In lst
If s > ""
FileSys.DeleteFile(ProjectPath & "Attachments\" & s,2,2)
End If
Next
Dim lst1 As List(of String) = Tables("出库.出库明细").Current.DataRow.Lines("fa piao原件")
For Each s As String In lst1
msgbox(e.Form.Controls("路径1").text & "\" & e.Form.Controls("文件名1").text) '文件路径是否正确?
filesys.DeleteFile(e.Form.Controls("路径1").text & "\" & e.Form.Controls("文件名1").text,2,2)
Next
Tables("出库.出库明细") .Current.Delete
End If
End If
加好友 
发短信
Post By：2019/11/9 12:41:00 [显示全部帖子]
