自定义table

        '建一个表格4行10列
        Dim myHang As Integer
        Dim myLie As Integer
        For myHang = 0 To 3 '行
            Dim tempRow As New TableRow
            Dim emptyRow As New TableRow

            For myLie = 1 To 10 '列
                Dim tempCell As New TableCell()
                Dim emptyCell As New TableCell()

                If (myHang * 10 + myLie) <= Date.DaysInMonth(Year(WebDateChooser1.Value), Month(WebDateChooser1.Value)) Then
                    tempCell.Text = (myHang * 10 + myLie)
                    emptyCell.Text = UserList.Rows(myHang * 10 + myLie - 1).Item(1)  '状态行，获取userlist表的行列值
                End If
                tempRow.Cells.Add(tempCell) '增加日期行
                emptyRow.Cells.Add(emptyCell) '增加状态行
            Next myLie

            Table1.Rows.Add(tempRow)
            Table1.Rows.Add(emptyRow)

        Next myHang