Select Case e.Path Case "","test.htm" Dim wb As New WeUI wb.AddForm("","form1","abc.htm") With wb.AddTable("form1","Table1") .Alternate = 3 Dim nms() As String = {"","第一列", "第二列","第三列"} .Head.AddRow(nms) For Each r As DataRow In DataTables("表A").Select("") Dim nr = .Body.AddRow("<input Type='checkbox' name='idx_" & r("_Identify") & "' value='" & r("_identify") & "' />") nr.addcell(r("第一列")) nr.addcell(r("第二列")) nr.addcell(r("第三列")) Next End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit") End With e.WriteString(wb.Build) Case "abc.htm" Dim sb As New StringBuilder sb.AppendLine("<meta name='viewport' c>") sb.AppendLine("接收到的数据有:<br/><br/>") For Each key As String In e.PostValues.Keys sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>") Next e.WriteString(sb.ToString) End Select
|