Dim drs As List(Of DataRow)drs = DataTables("订单").Select("逻辑列 = True")For Each dr As Datarow In drs '遍历行 Next