老师,我把标出的去掉没有用。
If Tables("设备.设备管理") .Current.Isnull("审核人") = True Then
If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Dim r As Row = Tables("设备.设备管理").Current
Dim Multi As String = r("商品_产品图标")
Dim Values() As String
Values = Multi.replace(vbcr,"").split(vbLf)
For Index As Integer = 0 To Values.Length - 1
msgbox(ProjectPath & "Attachments\商品图标\" & Values(Index))
If FileSys.FileExists(ProjectPath & "Attachments\商品图标\" & Values(Index)) Then
FileSys.DeleteFile(ProjectPath & "Attachments\商品图标\" & Values(Index),2,2)
End If
Next
r.Delete
End If
End If