以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文件管理器，删除按钮的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21037)
--  作者：dark272710
--  发布时间：2012/6/28 10:12:00
--  文件管理器，删除按钮的问题
窗口里FileManager 已绑定列

写的删除按钮代码，文件是删除了，但是列表里的内容还在


上传的代码很简单
r("工程附件") = r("工程附件") & vbcr & longname

删除代码如下，怎么把附件列里的相应内容也删了呢？
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim fl As String = "\\\\192.168.1.7\\工程文件$\\" & fm.SelectedItem
FileSys.DeleteFile("\\\\192.168.1.7\\工程文件$\\" & fl & "",2,2)
--  作者：dark272710
--  发布时间：2012/6/28 10:29:00
--  
就是要实现filemanage的命令按钮的“删除功能”

谢谢
--  作者：狐狸爸爸
--  发布时间：2012/6/28 14:28:00
--  
Dim flg As WinForm.FileManager = Forms("窗口1").Controls("FileManager1")
Dim vals() As String = Tables("表A").Current("第十列").Replace(vblf,"").split(vbcr)
Dim fls As String
Dim sel As String = flg.SelectedItem
For Each fl As String In vals
    If fl <> "" AndAlso fl <> sel Then
        fls = fls & fl & vbcrlf
    End If
Next
fls = fls.trim(vbcr)
Tables("表A").Current("第十列") = fls
--  作者：dark272710
--  发布时间：2012/6/28 15:11:00
--  
可以用

就是有个问题，就是 只剩下一个附件的时候，会提示报错~~~
--  作者：狐狸爸爸
--  发布时间：2012/6/28 15:15:00
--  

你可以加个判断的啊
--  作者：dark272710
--  发布时间：2012/6/29 10:03:00
--  
不好意思。。。。我用以下代码判断，但是还有问题：用过删除后，会多出一个换行符，这个判断就无效了。。。。

Dim va As String = Tables("工程项目").Current("工程附件")
If va.Contains(vbcr) Then
--  作者：狐狸爸爸
--  发布时间：2012/6/29 10:11:00
--  

Dim flg As WinForm.FileManager = Forms("窗口1").Controls("FileManager1")
Dim vals() As String = Tables("表A").Current("第十列").Replace(vblf,"").split(vbcr)
Dim fls As String
Dim sel As String = flg.SelectedItem
For Each fl As String In vals
    If fl <> "" AndAlso fl <> sel Then
        fls = fls & fl & vbcrlf
    End If
Next
If fls > "" Then
    fls = fls.trim(vbcr)
End If
Tables("表A").Current("第十列") = fls

 

你要看看：

http://www.foxtable.com/help/topics/1485.htm

 

首先要知道出问题时哪一行代码，这样才能有针对性地修改。