Select Case e.Path Case "saletj.htm" Dim wb1 As New WeUI wb1.InsertHTML("<h3 align='center' style='margin-top:5px'>数据统计</h3>") wb1.AddForm("","form1","saletj.htm") With wb1.AddInputGroup("form1","ipg1") .Attribute = "style='margin-top:5px'" End With e.WriteString(wb1.Build) Functions.Execute("saletj",e) End Select