以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  同时删除多行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161354)
--  作者：lisangyu
--  发布时间：2021/3/14 21:37:00
--  同时删除多行
蓝总：删除当前副本表行，利用当前行对应列信息删除FTP服务中的文件，我通过选中复选框，无法删除多行？怎么通过按键盘CTRL选中多行执行 删除多行
--  作者：有点蓝
--  发布时间：2021/3/14 21:45:00
--  
CTRL无法随机选中多行。

选中复选框肯定可以删除多行：http://www.foxtable.com/webhelp/topics/1776.htm
--  作者：lisangyu
--  发布时间：2021/3/14 22:44:00
--  
 For Each r As Row In Tables("主窗口_table1").GetCheckedRows
            e.StripItem.HideDropDown() \'\'关闭菜单项目所在的下拉菜单
            If (Tables("主窗口_table1").Current("二级目录") = _UserGroup And _UserIsRole.Contains("部门文件管理员"))  Or _userIsRole.Contains("系统管理员")  Or _userIsRole.Contains("下载权限") Then
                If Tables("主窗口_table1").Current IsNot Nothing Then
                    Dim ftp1 As new ftpclient
                    Tables("FTP配置信息").Position =0 \'移动到第一行,以免出错
                    ftp1.Host=trim(Tables("FTP配置信息").current("地址"))
                    ftp1.Account = trim(Tables("FTP配置信息").current("账号"))
                    ftp1.password = trim(Tables("FTP配置信息").current("密码"))
                    Dim lj As String = Tables("主窗口_table1").Current("路径")
                    Dim fp As String = lj
                    Dim wjm As String = Tables("主窗口_table1").Current("文件名")
                    Dim hz As String = Tables("主窗口_table1").current("后缀")
                    \'\' msgbox(projectpath & "RemoteFiles\\" & wjm)
                    Dim dlg As new folderbrowserdialog
                    If dlg.showdialog = dialogresult.ok Then
                        If ftp1.Download(fp,dlg.Selectedpath & "\\" & wjm) = True Then
                            Messagebox.show("下载成功","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                        End If
                    Else
                        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                        
                    End If
                End If
            Else
                Messagebox.show("对不起,您不是部门文档所有者!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
        Next


选中多行下载 ，结果只能下载 一个
--  作者：有点蓝
--  发布时间：2021/3/14 22:56:00
--  
current表示的是当前行：http://www.foxtable.com/webhelp/topics/0445.htm，和GetCheckedRows没有一分钱的关系

Tables("FTP配置信息").current全部改为r

For Each r As Row In Tables("主窗口_table1").GetCheckedRows
--  作者：lisangyu
--  发布时间：2021/3/14 23:13:00
--  
的确没注意这个了，但是又来了新的问题，选中10个文件，会弹出10次选择路径 ，这个好像很难处理。CancelAll  好像用不起来
--  作者：有点蓝
--  发布时间：2021/3/14 23:19:00
--  
10个文件都是同一个路径的，把弹出选择目录框放到最外层