老师好,下面有两组代码,第一组是反审后删除行,第二组是删除行和删除图片管理器添加图片包括文件夹根目录的图片。
我的行有两列添加了图片要一同删除两列根目录的图片。
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 e.DataRow("商品_产品图标") <>"" Then
If Messagebox.Show("该行图片记录一并删除","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
Dim r As Row = Tables("设备管理").Current
Dim Multi As String = r("商品_产品图标")
Dim Values() As String
Values = Multi.split(vbLf)
For Index As Integer = 0 To Values.Length - 1
If FileSys.FileExists(ProjectPath & "Attachments\商品图标\" & Values(Index)) Then
FileSys.DeleteFile(ProjectPath & "Attachments\商品图标\" & Values(Index),2,2)
End If
Next
End If