Dim olist

Set olist = ScreenItems("Grid")  '控件名称

    olist.clear

    olist.Cols=5    '列数        

    olist.Rows = m+1 '行数量

For i = 0 To 4

    olist.ColAlignment(i)=3'列内容居中显示

Next

    '设置列宽    

    olist.ColWidth(0) = 800                 

    olist.ColWidth(1) = 1200

    olist.ColWidth(2) = 1200

    olist.ColWidth(3) = 1200

    olist.ColWidth(4) = 1200