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)
'错误信息提示:未将对象引用设置到对象的实例.
我是菜鸟，刚学移动编程，这段代码的问题是我只能得到“INAME”的变量，没有“USERNAME"的变量，调试不出哪里有问题
认真理解一下帮助，刚学就更应该看多几遍
示例三
通常应该在代码中判断是否找到了符合条件的行，然后再运行后续的代码。
例如要找出最近一次订购产品数量超过1000的订单，并显示订单的日期和客户：
Dim dr As DataRow
dr = DataTables("订单").Find("数量 > 1000","日期 Desc")
If dr IsNot Nothing Then '如果找到的话
Output.Show("日期:" & dr("日期"))
Output.Show("客户:" & dr("客户"))
End If
如果我们不加上判断，直接：
Dim dr As DataRow
dr = DataTables("订单").Find("数量 > 1000","日期 Desc")
Output.Show("日期:" & dr("日期"))
Output.Show("客户:" & dr("客户"))
一旦订单表并不存在订购数量超过1000的订单，那么Find方法返回Nothing，导致后续代码运行出错。
------------------------
Dim dr As DataRow =DataTables("users").find("name = '" & e.cookies(username) & "'")
If dr IsNot Nothing Then '如果找到的话
后续其它代码
End If