[求助]选定单元格能连续左移和右移 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]选定单元格能连续左移和右移

共有2661人关注过本帖树形打印复制链接主题：[求助]选定单元格能连续左移和右移

tygzjsl

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

加好友

发短信

等级：童狐帖子：209 积分：1640 威望：0 精华：0 注册：2018/3/5 10:34:00

[求助]选定单元格能连续左移和右移 发帖心情

Post By：2024/5/30 21:06:00 [只看该作者]

大神老师，如何选定单元格能连续左移和右移，也就是能通过按钮点击能左移或右移，调整专业顺序，专业代码和专业名称一起移动，求按钮点击代码，感谢大神老师图片点击可在新窗口打开查看

此主题相关图片如下：123.jpg

[此贴子已经被作者于2024/5/30 21:10:08编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：110809 积分：563983 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/5/30 21:40:00 [只看该作者]

左移

dim t as table = tables("表A")

dim r as row = t.current
dim n as integer = t.colsel

dim c as col = t.cols(n)

if c.name like "*专业_*" andalso not(c.name like "第一专业_*") then

if c.name like "*_专业名称" then

n = n -1

c = t.cols(n)

end if

dim s1 as string = r(n-2)

dim s2 as string = r(n-1)

r(n-2) = r(n)

r(n-1) = r(n+1)

r(n) = s1

r(n+1) = s2

end if

tygzjsl

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

加好友

发短信

等级：童狐帖子：209 积分：1640 威望：0 精华：0 注册：2018/3/5 10:34:00

Post By：2024/5/31 8:36:00 [只看该作者]

非常感谢老师，那么右移怎么改，全指望你啦图片点击可在新窗口打开查看

dim t as table = tables("表A")

dim r as row = t.current

dim n as integer = t.colsel

dim c as col = t.cols(n)

if c.name like "*专业_*" andalso not(c.name like "第六专业_*") then

if c.name like "*_专业名称" then

n = n -1

c = t.cols(n)

end if

dim s1 as string = r(n-2)

dim s2 as string = r(n-1)

r(n-2) = r(n)

r(n-1) = r(n+1)

r(n) = s1

r(n+1) = s2

end if

tygzjsl

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

加好友

发短信

等级：童狐帖子：209 积分：1640 威望：0 精华：0 注册：2018/3/5 10:34:00

Post By：2024/5/31 8:38:00 [只看该作者]

然后老师你在帮我看一下这个呗

此主题相关图片如下：微信截图_20240530195938.jpg

大神老师，想把除某些列外选定行连续上或下移动，按钮事件代码怎么改啊

Dim cs() As String = {"批次", "序号"}

Dim cr As Row = Tables("表A").Current
If cr IsNot Nothing AndAlso cr.Index < Tables("表A").Rows.Count - 1 Then
    Dim nr As Row = Tables("表A").Rows(cr.Index + 1)
    For Each c As String In cs
        Dim temp As String = nr(c)
        nr(c) = cr(c)
        cr(c) = temp
    Next
End If

要把选定行除批次和序号这两列外其它列内容能连续上移或下移（上移按钮和下移按钮事件），这个怎么改图片点击可在新窗口打开查看