http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080
Dim mr As DataRow = DataTables("ylckb").find("zzh='" & nm & "'")
If mr isnot nothing then
dr("供应商") = mr("供应商")
dr("原料名称") = mr("ylmc")
dr("原料规格") = mr("原料规格")
end if
示例三
通常应该在代码中判断是否找到了符合条件的行，然后再运行后续的代码。
例如要找出最近一次订购产品数量超过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，导致后续代码运行出错。
加好友 
发短信
Post By：2020/4/24 10:53:00 [显示全部帖子]
