Select Case e.Path
Case "table.htm"
Dim wb As New WeUI
With wb.AddTable("","Table1")
.Alternate = 3
Dim nms() As String = {"员工","姓名","学历","年龄","照片"}
.Head.AddRow(nms)
For Each r As DataRow In DataTables("员工").Select("","")
With .Body.AddRow(r("姓名"),r("学历"),r("年龄"))
wb.InsertHTML("<a href='./uploadfiles\ " & r("照片") & " download= " & r("照片") & " > " & r("姓名") & "'</a>")
End With
Next
End With
e.WriteString(wb.Build)
End Select