Foxtable(狐表)用户栏目专家坐堂 → 关于列顺序批量调整的求助(商业版与开发版)


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

主题:关于列顺序批量调整的求助(商业版与开发版)

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/9/13 14:03:00 [显示全部帖子]

Dim m,n,k As Integer
m = Tables("采购明细").Cols("F1").Index
k = Tables("尺码档案").rows.count
For i As Integer = 1 To k
    For Each r As Row In Tables("尺码档案").rows
        If  Tables("采购明细").Cols("F" & i).Caption = r("尺码名称")
            n =  r.Index
            Tables("窗口1_Table1").Cols("F" & i).Move(n)
        End If
    Next
Next

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/9/13 14:25:00 [显示全部帖子]

我试过可以的.


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/9/13 14:29:00 [显示全部帖子]

我那个肯定可以,但是不知为什么单号往后跑了.其余一定对的.MR725兄你的代码提示少F19的列.

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/9/13 15:06:00 [显示全部帖子]

mr-725兄,你的简单.

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/9/13 15:59:00 [显示全部帖子]

妙不可言

 回到顶部