主题：'错误信息提示:未将对象引用设置到对象的实例.

示例三

通常应该在代码中判断是否找到了符合条件的行，然后再运行后续的代码。
例如要找出最近一次订购产品数量超过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