[求助]删除 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，代码不完全理解。

此主题相关图片如下：image 1.png

很简单的问题，自己分析下原因

老师，分析不了啊。

Dim lst As List(of String) = Tables("出库.出库明细").Current.DataRow.Lines("图片")

老师，下面代码报错

If Tables("出库.出库明细") .Rows.count = 0 Then

MessageBox.Show("没有可删除!")

Return

End If

If Tables("出库.出库明细") .Rows.count > 0 AndAlso Tables("出库.出库明细") .Current.Isnull("审核人") = False Then

MessageBox.Show("已审核,请反审!")

Return

End If

'If Tables("出库.出库明细") .Current.Isnull("审核人") = True Then

'If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then

' Tables("出库.出库明细") .Current.Delete

'End If

'================================================

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

msgbox(s) '根据

' FileSys.DeleteFile(ProjectPath & "Attachments\送货单" & s,2,2)

FileSys.DeleteFile( "H:\蓝峰\Attachments\送货单" & s,2,2)

Tables("出库.出库明细") .Current.Delete

End If

.NET Framework 版本:2.0.50727.8669

Foxtable 版本:2017.4.22.1

错误所在事件:窗口,出库,Button16,Click

详细错误信息:

未能找到文件"H:\狐表文件\Attachments\送货单30200053?22776048清源有限公司2015-05-28.jpg".

提示这么明显！
FileSys.DeleteFile( "H:\蓝峰\Attachments\送货单\" & s,2,2)

老师，上面报错路径修改过，实际和代码中的路径一样的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:文档.rar

msgbox(e.Form.Controls("路径1").text & "\" & e.Form.Controls("文件名1").text)

老师，代码报错。

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

msgbox(s) '根据

' FileSys.DeleteFile(ProjectPath & "Attachments\" & s,2,2)

filesys.DeleteFile(e.Form.Controls("路径").text & "\" & e.Form.Controls("文件名").text,2,2)

Tables("出库.出库明细") .Current.Delete

End If

.NET Framework 版本：2.0.50727.8669

Foxtable 版本：2017.4.22.1

错误所在事件：窗口,出库,Button16,Click

详细错误信息：

给定的文件路径以目录分隔符字符结尾。

参数名: file

For Each s As String In lst

msgbox(e.Form.Controls("路径").text & "\" & e.Form.Controls("文件名").text) '文件路径是否正确？

' FileSys.DeleteFile(ProjectPath & "Attachments\" & s,2,2)

filesys.DeleteFile(e.Form.Controls("路径").text & "\" & e.Form.Controls("文件名").text,2,2)

主题：[求助]删除