Select Case e.Path Case "test.htm", "" Dim wb As New WeUI With wb.AddTable("","Table1") .head.AddRow("部门","姓名","年龄","电话","地址") '表头 .body.AddRow("技术部","张三","36","110","中国北京") '数据 .body.AddRow("技术部","李四","38","110","中国上海") .body.AddRow("技术部","王五","39","110","中国深圳") .body.AddRow("生产部","赵六","39","110","中国深圳") .body.AddRow("生产部","刘七","39","110","中国深圳") End With wb.InsertHTML("<style>.fox_table td{font-size:20px;} .fox_table th{font-size:20px;}style>") e.WriteString(wb.Build) End Select
|