大师：

我在表事件里写好以下代码，在加载出来时并没有按写好的顺序显示，需要怎么样修改代码让他能按顺序显示，并能设置好显示列的宽度：

Dim r As Row = Tables("录入单耗_面辅信息").Current
If r IsNot Nothing Then
    For Each c As Col In Tables("录入单耗_面辅信息").Cols
        If c.name.StartsWith("尺码") Then
            c.Visible = (r(c.name) > 0)
        End If
    Next
End If
Dim r1 As Row = Tables("录入单耗_面辅信息").Current
If r1 IsNot Nothing Then
    For Each c As Col In Tables("录入单耗_面辅信息").Cols
        If c.name.StartsWith("单耗") Then
            c.Visible = (r1(c.name) > 0)
        End If
    Next
End If
With Tables("录入单耗_面辅信息")
    .Cols("类别").Move(0)
    .Cols("主色_组色").Move(1)
    .Cols("主色_色号").Move(2)
    .Cols("主色_色称").Move(3)
    .Cols("部位").Move(4)
    .Cols("部位名称").Move(5)
    .Cols("物料名称").Move(6)
    .Cols("物料规格").Move(7)
    .Cols("单耗66").Move(8)
    .Cols("尺码73").Move(9)
    .Cols("单耗73").Move(10)
    .Cols("尺码80").Move(11)
    .Cols("单耗80").Move(12)
    .Cols("尺码110").Move(13)
    .Cols("单耗110").Move(14)
    .Cols("尺码120").Move(15)
    .Cols("单耗120").Move(16)
    .Cols("尺码130").Move(17)
    .Cols("单耗130").Move(18)
    .Cols("尺码140").Move(19)
    .Cols("单耗140").Move(20)
    .Cols("尺码150").Move(21)
    .Cols("单耗150").Move(22)
    .Cols("尺码160").Move(23)
    .Cols("单耗160").Move(24)
    .Cols("尺码165").Move(25)
    .Cols("单耗165").Move(26)
    .Cols("尺码170").Move(27)
    .Cols("单耗170").Move(28)
    .Cols("尺码175").Move(29)
    .Cols("单耗175").Move(30)
    .Cols("尺码180").Move(31)
    .Cols("单耗180").Move(32)
    .Cols("尺码185").Move(33)
    .Cols("单耗185").Move(34)
    .Cols("尺码XXS").Move(35)
    .Cols("单耗XXS").Move(36)
    .Cols("尺码XS").Move(37)
    .Cols("单耗XS").Move(38)
    .Cols("尺码S").Move(39)
    .Cols("单耗S").Move(40)
    .Cols("尺码M").Move(41)
    .Cols("单耗M").Move(42)
    .Cols("尺码L").Move(43)
    .Cols("单耗L").Move(44)
    .Cols("尺码XL").Move(45)
    .Cols("单耗XL").Move(46)
    .Cols("尺码XXL").Move(47)
    .Cols("单耗XXL").Move(48)
    .Cols("备注").Move(49)
End With