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

老师好，出库。出库明细表在删除最后一行时报错。

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

下面是报错事件里面的代码

If Forms("出库").opened Then

If Tables("出库.出库明细").Current IsNot Nothing Then

Dim pic As WinForm.PictureBox = Forms("出库").Controls("PictureBox2")

Dim wjm As String = Tables("出库.出库明细").Current("fa piao原件")

If wjm.Contains(".") = False Then '若文件名不包含.,说明是未知文件

pic.Image = getimage("other.png")

Else

Dim i As Integer = wjm.LastIndexOf(".")

Dim kzm As String = wjm.SubString(i+1)

Dim kzms As String = "swf accdb mdb psd png xls xlsx bmp rar jpg doc docx zip pdf txt ppt exe" '定义已知扩展名

If kzms.Contains(kzm) = True Then

pic.image = getimage(kzm & ".png")

Else

pic.image = getimage("other.png")

End If

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

If Forms("出库").opened AndAlso e.Table.name = "出库.出库明细" Then
        If Tables("出库.出库明细").Current IsNot Nothing Then
            Dim pic As WinForm.PictureBox = Forms("出库").Controls("PictureBox2")
            Dim wjm As String = Tables("出库.出库明细").Current("fa piao原件")
            If wjm.Contains(".") = False Then '若文件名不包含.,说明是未知文件
                pic.Image = getimage("other.png")
            Else
                Dim i As Integer = wjm.LastIndexOf(".")
                Dim kzm As String = wjm.SubString(i+1)
                Dim kzms As String = "swf accdb mdb psd png xls xlsx bmp rar jpg doc docx zip pdf txt ppt exe" '定义已知扩展名
                If kzms.Contains(kzm) = True Then
                    pic.image = getimage(kzm & ".png")
                Else
                    pic.image = getimage("other.png")
                End If
            End If
        End If
    End If

谢谢老师，另外一个删除按钮报错，如果关联表是空的用删除按钮删除就报错，我想修改代码只提示不报错。

下面是删除按钮代码。

If GetConfigValue("文件夹路径" & ComputerId,"") = "" Then

MessageBox.Show("请先指定存储路径!","提醒")

Return

Else

Dim dlg As new OpenFileDialog

If dlg.ShowDialog = DialogResult.OK Then

If Tables("出库.出库明细").Current("fa piao原件") > "" Then

Dim Result = MessageBox.Show("是否删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If result = DialogResult.Yes Then

If FileSys.FileExists(e.Form.Controls("路径1").text & "\" & Tables("出库.出库明细").Current("fa piao原件")) Then

FileSys.DeleteFile(e.Form.Controls("路径1").text & "\" & Tables("出库.出库明细").Current("fa piao原件"), 2, 2)

End If

Else

msgbox("请新增行输入")

Return

End If

Dim i As Integer = dlg.FileName.LastIndexOf("\")

Dim wjm As String = dlg.FileName.SubString(i+1)

Tables("出库.出库明细").Current("fa piao原件") = wjm

e.Form.Controls("文件名1").text = wjm

FileSys.CopyFile(dlg.FileName,e.Form.Controls("路径1").text & "\" & wjm,True)

Functions.Execute("出库piao据上传") '义函数名

End If

以下是引用江南小镇在2017/10/20 7:43:00的发言：
谢谢老师，另外一个删除按钮报错，如果关联表是空的用删除按钮删除就报错，我想修改代码只提示不报错。

加入判断即可，如

If Tables("出库.出库明细").Current Is Nothing Then

msgbox("表格为空，不能删除")

Else

'原来代码

End If

主题：[求助]删除行