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


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

主题：关于列顺序批量调整的求助（商业版与开发版）
帅哥哟，离线，有人找我吗？
ybil
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/9/13 12:13:00 [显示全部帖子]

要想更多人想办法,还是提供商用版格式文件.

 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/9/13 13:14: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 =  m + r.Index
            Tables("窗口1_Table1").Cols("F" & i).Move(n)
        End If
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/9/13 14:45:00 [显示全部帖子]

Dim n As Integer
Dim t1,t2 As Table
t1 = Tables("窗口1_Table1")
t2 = Tables("尺码档案")

For Each cl As Col In t1.Cols
    If  cl.Caption <>"单号" AndAlso  cl.Caption <>"备注"
        n =t2.FindRow(t2.DataTable.find("尺码名称 = '" & cl.Caption & "'"))+1
        cl.move(n)       
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/9/13 15:16:00 [显示全部帖子]


Dim t1,t2 As Table
Dim s As String
t1 = Tables("窗口1_Table1")
t2 = Tables("尺码档案")

For Each r As Row In t2.Rows    
    For Each cl As Col In t1.Cols
        If  cl.name <>"单号" AndAlso  cl.name <>"备注"
            If cl.Caption = r("尺码名称") Then
                s+ = "|" & cl.name & "|" & 80
            End If
        End If
    Next
Next
s = "单号|120" & s & "|备注|160"
t1.SetColVisibleWidth(s)
[此贴子已经被作者于2011-9-13 15:19:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/9/14 13:13:00 [显示全部帖子]

Dim t As Table = Tables("窗口1_Table1")
Dim t1 As Table = Tables("尺码档案")
.....
確實耐人尋味:t.FindRow(dr)和t1.FindRow(dr)得到的結果一樣!

請教C版:
t.SetColVisibleWidth("单号|-1|备注|-1")中,"-1"作何解?默認列寬?最小列寬?
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/9/14 13:24:00 [显示全部帖子]

以下是引用czy在2011-9-14 13:04:00的发言：

另外我认为SetColVisibleWidth还是有瑕疵的，比如分别执行下面的两行代码，就会出现问题。当然这主要原因设置出了问题，设置出问题后出现这种现象正不正常，值得商榷

 

Tables("表A").SetColVisibleWidth("第一列|80||80|第二列|80|第三列|80")

Tables("表A").SetColVisibleWidth("|80|第二列|80|第三列|80")



呵呵,C版這個例子特例點,這樣可能好點:

Tables("A").SetColVisibleWidth("|第一列|80|第二列|80|第三列|80")

動態合成SetColVisibleWidth的字符串有時也不是吹灰
 回到顶部
帅哥哟，离线，有人找我吗？
ybil
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00 		  发帖心情 Post By：2011/9/14 17:15:00 [显示全部帖子]

以下是引用czy在2011-9-14 16:26:00的发言：

 

-1为默认宽度


这个好!晕,帮助文件里好像没说这个.多谢C版!
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询