Dim drs As List(Of DataRow)drs = DataTables("订单").Select("[产品] = 'PD01' And [日期]= #1/4/1999#")For Each dr As Datarow In drs dr("折扣") = 0.12Next
如何判断行数?
这不是你的水平