主题：一处不完美的地方

1、应该由贺老师改过来，setcolvisiblewidth设置列之时将列宽为0的列直接隐藏；

2、暂时可以用循环语句自己写一个

用循环语句将cvs包含0的列排除掉再设置列宽就隐藏了！

 

GetColVisibleWidth不能修改的，假如您需要将隐藏的列调用出来，通过代码将为0的参数修改为其他值重新显示部分列办？
故应该在SetColVisibleWidth将为0的列设置为隐藏

很简单的，排除或者自定义SetColVisibleWidth都可以做到，有事马上出去，晚上回来再说

呵呵，是的。

 

顺便帮楼主改了一个自定义SetColVisibleWidth的代码：

 

Dim Names As New List(Of String)
Dim cvs As String = Tables("订单").GetColVisibleWidth()
Dim Values() As String
Values = cvs.split("|")
For i As Integer = 1 To Values.Length - 1  Step 2
    If Values(i) = 0
        Tables("产品.订单").Cols(Values(i-1)).Visible = False
    Else
        Tables("产品.订单").Cols(Values(i-1)).Width = Values(i)
    End If
Next

 

惭愧，高级写法算不上，但这样的巧妙根据数组的奇偶位特征规律的运用，应该是值得大家借鉴的！