Private Sub Cell1_Setup(ByRef obj As Object)
    Dim numI As Integer, numcol As Integer, numRow As Integer

'   显示表头
    Cell1.EnablePopMenu = False
    Cell1.PageLabelVisible = False
    Cell1.SideLabelVisible = False
    Cell1.TopLabelHeight = False
    
    Cell1.DoSetCurrentPage 0
    Cell1.DoSetCellString 0, 0, "学生信息表"
    Cell1.DoSetCellFont 0, 0, 16, 1, "楷体"
    Cell1.DoSetRowHeight 0, 36
    Cell1.DoJoinCells 0, 0, 10, 0
    Cell1.DoSetCellAlignment 0, 0, 36     '   居中显示
    Cell1.DoSetCellReadOnly 0, 0, True    '   表头内容为只读

    Cell1.DoSetCellString 0, 1, "学院：" & Combo0.Text & "    系部：" & Combo1.Text & "    专业：" & Combo2.Text & "    年级：" & Combo3.Text & "    班级：" & Combo4.Text & "    人数：" & Str(rs)
    Cell1.DoSetRowHeight 1, 36
    Cell1.DoJoinCells 0, 1, 10, 1
    Cell1.DoSetCellReadOnly 0, 1, True      '   表头内容为只读
    
    Cell1.DoSetColWidth 0, 60
    Cell1.DoSetColWidth 1, 70
    Cell1.DoSetColWidth 2, 30
    Cell1.DoSetColWidth 3, 86
    Cell1.DoSetColWidth 4, 50
    Cell1.DoSetColWidth 5, 66
    Cell1.DoSetColWidth 6, 150
    Cell1.DoSetColWidth 7, 200
    Cell1.DoSetColWidth 8, 240
    Cell1.DoSetColWidth 9, 60
    Cell1.DoSetColWidth 10, 110
    
    Cell1.DoSetCellString 0, 2, "学号"
    Cell1.DoSetCellString 1, 2, "姓名"
    Cell1.DoSetCellString 2, 2, "性别"
    Cell1.DoSetCellString 3, 2, "出生年月"
    Cell1.DoSetCellString 4, 2, "民族"
    Cell1.DoSetCellString 5, 2, "政治面貌"
    Cell1.DoSetCellString 6, 2, "身份证号"
    Cell1.DoSetCellString 7, 2, "籍贯"
    Cell1.DoSetCellString 8, 2, "家庭住址"
    Cell1.DoSetCellString 9, 2, "邮政编码"
    Cell1.DoSetCellString 10, 2, "联系电话"
    For numI = 0 To 10
       Cell1.DoSetCellAlignment numI, 2, 36
       Cell1.DoSetCellReadOnly numI, 2, True
    Next numI
    Cell1.DoSetDefaultFont 8, 0, "宋体"
    Cell1.Rows = 3
    Cell1.Cols = 11
'    Cell1.DoRedrawAll
End Sub


