已解决，上移代码：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编辑过]
加好友 
发短信
Post By：2024/4/7 9:41:00 [只看该作者]
此主题相关图片如下：微信截图_20240407093849.png