文件管理器，删除按钮的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件管理器，删除按钮的问题

共有8677人关注过本帖树形打印复制链接主题：文件管理器，删除按钮的问题

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/6/28 15:15:00 [显示全部帖子]

你可以加个判断的啊

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

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

下一主题 >> << 上一主题

主题：文件管理器，删除按钮的问题