Dim drs As List(Of
DataRow) drs =
DataTables("订单").Select("[产品] = 'PD01' And [日期]=
#1/4/1999#") For Each dr As Datarow In drs
Output.show(dr("客户")) Next
Dim drs As List(OfRow) drs = Tables("订单").Filter="[产品] = 'PD01' And [日期]=
#1/4/1999#" For Each dr As Datarow In drs
Output.show(dr("客户")) Next