Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>")
wb.AppendHTML("<style >#ipg1 .weui_cell_hd{display: none;}</style>")
With wb.AddTable("","Table1")
.head.AddRow("部门","姓名","年龄","电话","地址") '表头
.body.AddRow("技术部","张三","36","110","中国北京") '数据
Dim ipg As ExWeUI.ExInputGroup = ExWeUI.WebUI.AddInputGroup("","ipg1","")
ipg.AddSpinner("sp01",".")
.body.AddRow(ipg.BuildHtml,"李四","38","110","中国上海")
End With
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build)