共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]如何调整窗口文件管理器文件顺序？
1楼
洮沙 发表于：2024/4/7 9:41:00如何调整窗口文件管理器文件顺序？
此主题相关图片如下：微信截图_20240407093849.png
麻烦老师帮忙解决一下，谢谢！
此主题相关图片如下：微信截图_20240407093849.png麻烦老师帮忙解决一下，谢谢！
2楼
有点蓝 发表于：2024/4/7 9:51:00方法1、删除掉，重新按顺序添加
2、取文件列集合，按需要的顺序重新更改集合：http://www.foxtable.com/webhelp/topics/2717.htm
3楼
洮沙 发表于：2024/4/7 12:32:00已解决，上移代码：
Dim pv As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim fl As String = pv.SelectedItem
If fl > "" Then
Dim dr As DataRow = Tables("日常业务").Current.DataRow
Dim fls As List(Of String)
fls = dr.Lines("申报资料")
Dim n1 As Integer = fls.Indexof(fl)
If n1 > 0 Then
fls.Remove(fl)
fls.Insert(n1 - 1, fl) '向上插入值
dr.Lines("申报资料") = fls
pv.SelectedItem = fl
dr.Save()
Else
Messagebox.Show("已是最上一条！", "提示")
End If
Else
Messagebox.Show("未选择文件！", "提示")
End If
下移代码：
Dim pv As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim fl As String = pv.SelectedItem
If fl > "" Then
Dim dr As DataRow = Tables("日常业务").Current.DataRow
Dim fls As List(Of String)
fls = dr.Lines("申报资料")
Dim n1 As Integer = fls.Indexof(fl)
If n1 < fls.Count - 1 Then
fls.Remove(fl)
fls.Insert(n1 + 1, fl) '向下插入值
dr.Lines("申报资料") = fls
pv.SelectedItem = fl
dr.Save()
Else
Messagebox.Show("已是最后一条！", "提示")
End If
Else
Messagebox.Show("未选择文件！", "提示")
End If
[此贴子已经被作者于2024/4/7 12:50:46编辑过]
共3 条记录, 每页显示 10 条, 页签:
[1]