| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 同时删除多行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161354) |
| -- 作者：lisangyu -- 发布时间：2021/3/14 21:37:00 -- 同时删除多行 蓝总：删除当前副本表行，利用当前行对应列信息删除FTP服务中的文件，我通过选中复选框，无法删除多行？怎么通过按键盘CTRL选中多行执行 删除多行 |
| -- 作者：有点蓝 -- 发布时间：2021/3/14 21:45:00 -- CTRL无法随机选中多行。 |
| -- 作者：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个文件都是同一个路径的，把弹出选择目录框放到最外层 |