Foxtable(狐表)用户栏目专家坐堂 → 一序号列在按其它列排序后,如何让其重按新行号赋值?


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

主题:一序号列在按其它列排序后,如何让其重按新行号赋值?

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/3 14:59:00 [显示全部帖子]

tables("表名").sort = "类型,_Identify"

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/3 15:16:00 [显示全部帖子]

呵呵,这个我也没有办法。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/3 15:19:00 [显示全部帖子]

要不这样:

For each r As Row In Tables("某表").rows()
   r("序号") = r.Index
Next

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/3 15:32:00 [显示全部帖子]

这样高效一点:

With Tables("常用代码")
    For i AS integer = 0 To  .Rows.Count - 1
        .Rows(i)("xh") =  i + 1
    Next

End With


 回到顶部