drs = DataTables("订单").Select("[产品] = 'PD01' And [日期]= #1/4/1999#")For Each dr As Datarow In drs dr("折扣") = 0.12