Foxtable(狐表)用户栏目专家坐堂 → [求助]删除


  共有3247人关注过本帖树形打印复制链接

主题:[求助]删除

帅哥哟,离线,有人找我吗?
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]删除  发帖心情 Post By:2019/11/7 15:26:00 [显示全部帖子]

老师好,删除出库.出库明细表行时做判断先删除第一列和第二列单元格的字段(是图片列)

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/7 16:16:00 [显示全部帖子]

老师,这是删除关联表行的代码。



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  
End If

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/7 17:56:00 [显示全部帖子]

老师,我的意思是在删除行时如果第一列和第二列有数据时就提示不能删除行先删除第一列和第二列的值然后再删除行。

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  
End If


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/8 6:32:00 [显示全部帖子]

老师,下面代码是删除关联表子表行的按钮代码,子表有两列是图片列,在删除该行时做个判断如果两列图片列的单元格有数据先清空后再删除整行。


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  
End If

[此贴子已经被作者于2019/11/8 6:34:18编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/8 13:38:00 [显示全部帖子]

 老师好,两列是图片列我要把文件夹中的图片一同删除。


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/8 17:08:00 [显示全部帖子]

老师,代码不完全理解。



图片点击可在新窗口打开查看此主题相关图片如下:image 1.png
图片点击可在新窗口打开查看
 

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/8 18:17:00 [显示全部帖子]

老师,分析不了啊。

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/8 22:57:00 [显示全部帖子]

老师,下面代码报错


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
'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)
        Next
        Tables("出库.出库明细") .Current.Delete
    End If
End If


.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2017.4.22.1
错误所在事件:窗口,出库,Button16,Click
详细错误信息:
未能找到文件"H:\狐表文件\Attachments\送货单30200053?22776048清源有限公司2015-05-28.jpg".


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/9 9:17:00 [显示全部帖子]

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


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文档.rar
 

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/11/9 11:52:00 [显示全部帖子]

老师,代码报错。


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)
            
        Next
        Tables("出库.出库明细") .Current.Delete
    End If
End If



.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2017.4.22.1
错误所在事件:窗口,出库,Button16,Click
详细错误信息:
给定的文件路径以目录分隔符字符结尾。
参数名: file



 回到顶部
总数 24 1 2 3 下一页