With wb.AddPanelGroup("page2","pg2","报名选班")
wb.AddForm("page2","form1","bmxb.htm")
With wb.AddInputGroup("form1","ipg3","选择兴趣班")
.Addselect("iname","兴趣班",DataTables("interest_classes").GetComboListString("name"))
End With
With wb.AddButtonGroup("form1","btg2",False)
.Add("btn2", "确定报名", "submit")
.add("btn3","取消报名","button").Attribute = ""
End With
End With
Case "bmxb.htm"
Dim dr As DataRow =DataTables("users").find("name = '" & e.cookies(username) & "'")
Dim dr1 As DataRow =DataTables("interest_classes").find("name = '" & e.PostValues("iname") & "'")
dr("interestid")=dr1("id")
dr.Save()
e.WriteString("ok")
e.WriteString(wb.Build)
'错误信息提示:未将对象引用设置到对象的实例.