Foxtable(狐表)用户栏目专家坐堂 → 调整行的位置


  共有3195人关注过本帖树形打印复制链接

主题:调整行的位置

帅哥,在线噢!
15666282205
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4243 威望:0 精华:0 注册:2019/1/13 10:12:00
调整行的位置  发帖心情 Post By:2023/9/5 18:03:00 [只看该作者]

老师,考勤表里根据考勤员筛选显示职工,想把职工的排序用手工调一下,设计一个上箭头和一个下箭头按钮,如何编写按钮的代码实现当前行用按钮调整位置呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/5 20:13:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/1846.htm。需要开启插入行标记:http://www.foxtable.com/webhelp/topics/1791.htm

上移一行
With CurrentTable
    .Current.Move(.Position - 
1)
End With

下移一行
With CurrentTable
    .Current.Move(.Position + 
1)
End With

 回到顶部
帅哥,在线噢!
15666282205
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4243 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2023/11/4 15:54:00 [只看该作者]

老师,上面的代码排序以后,再打开又恢复原样了。能不能直接把datatable数据库里的顺序修改呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/4 16:33:00 [只看该作者]

排序以后保存一下表格

 回到顶部
帅哥,在线噢!
15666282205
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4243 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2023/11/6 8:35:00 [只看该作者]

老师,排序后保存也不行。我研究了一下,打开表的时候根据Identify自动排序,如果想实现行的移动,应该把行的内容直接和另一行交换复制,Identify不变,内容变。怎么写代码呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/6 8:45:00 [只看该作者]

不可能。如果开启插入行标记,表格默认肯定是根据插入行标记也就是_sortkey列排序的

 回到顶部
帅哥,在线噢!
15666282205
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4243 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2023/11/6 9:06:00 [只看该作者]

老师,我是先筛选,然后
'----------------------------------------自动排序----------------------------------
Tables("当月考勤表2").Sort = "_Identify"
然后再重新排序,现在的问题是排序不能记忆

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/6 9:20:00 [只看该作者]

2楼的方式才可以保存。

任何使用代码排序都是临时性的。需要的时候每次都得调用代码

 回到顶部
帅哥,在线噢!
15666282205
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:537 积分:4243 威望:0 精华:0 注册:2019/1/13 10:12:00
  发帖心情 Post By:2023/11/6 9:32:00 [只看该作者]

我就是用2楼的代码调整顺序,也点保存了,可是重新打开程序的时候不能记忆,恢复原样了


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/6 9:38:00 [只看该作者]

去掉下面代码啊,执行了代码肯定是按照代码排序的

Tables("当月考勤表2").Sort = "_Identify"

 回到顶部
总数 16 1 2 下一页