DataRow

获得Row所对应的DataRow。
可以通过该属性来调用DataRow特有的属性和方法，例如：

Dim Sum As Long
For Each dr As DataRow In Tables("产品").Current.DataRow.GetChildRows("订单")
    Sum = Sum + dr("数量")
Next
OutPut.Show(Sum)

上面的代码，首先利用DataRow的GetChildRows获得选定产品的全部订单，然后再累加这些订单的订购数量。