共17 条记录, 每页显示 10 条, 页签: [1] [2]

标题：窗口Table列显示代码（改良版）

1楼

reachtone 发表于：2009/8/23 13:55:00

精华帖子，目前你无权浏览！

2楼

reachtone 发表于：2009/8/23 13:58:00

调用方法：
Functions.Execute("DataList",表名,列项目)

如：
Functions.Execute("DataList",Tables("窗口1_Table1"),"规格,100|高,70|宽,70|尺寸,158|面积,70|占版数,50")

[此贴子已经被作者于2009-8-23 14:47:17编辑过]

3楼

狐狸爸爸 发表于：2009/8/23 14:14:00

不错，很方便的

4楼

yangming 发表于：2009/8/23 14:21:00

学习研究!

5楼

kylin 发表于：2009/8/23 15:05:00

好啊,收藏!

6楼

czy 发表于：2009/8/23 16:49:00

学习！

7楼

migold 发表于：2009/8/23 17:19:00

学习一下，今晚再试试

8楼

blackzhu 发表于：2009/8/23 20:22:00

以下是引用reachtone在2009-8-23 13:58:00的发言：
调用方法：
Functions.Execute("DataList",表名,列项目)

如：
Functions.Execute("DataList",Tables("窗口1_Table1"),"规格,100|高,70|宽,70|尺寸,158|面积,70|占版数,50")

[此贴子已经被作者于2009-8-23 14:47:17编辑过]

老大能不能做个小例子看看

9楼

狐狸爸爸 发表于：2009/8/24 8:39:00

楼主已经给出例子了，注意他的DataList，指的是自定义函数的名称，并非我们通常所说的DataList

10楼

baoxyang 发表于：2009/8/24 10:32:00

加入一行代码为改变显示列的位置，
With Args(0)   '数据表
    Dim i as Integer = 0
    For Each c As Col In .Cols
        Dim Vals() As String = Args(1).Split("|")
        c.Visible = Args(1).Contains(c.name & ",")      '加逗号可以保证列名完全匹配
        If c.Visible = True
            .cols(c.name).move(i)
            c.Width = Vals(i).substring(Vals(i).indexof(",")+1)
            i = i + 1
        End If
    Next
End With
红色部分，怎么不生效呢？目的为，把显示列的位置进行调整，请老大看看，这样是否写错了？

共17 条记录, 每页显示 10 条, 页签: [1] [2]