以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  dim drs as list (of datarow) datatable("A").select ("xxx"."xxx") 如何删除这个集合里边15行以后的行？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136977)
--  作者：ls93005
--  发布时间：2019/6/25 17:40:00
--  dim drs as list (of datarow) datatable("A").select ("xxx"."xxx") 如何删除这个集合里边15行以后的行？
dim drs as list (of datarow) datatable("A").select ("xxx"."xxx")

如何删除这个list 里边15行以后的行？
--  作者：有点蓝
--  发布时间：2019/6/25 20:34:00
--  
如果行数比较多建议使用SQLCommand用sql取值，如：cmd.CommandText = "Select top 15 Max(日期) From {订单} Where 产品 = \'PD01\'"

一定要使用select的话，新建一个集合，获取前15行即可

Dim drs As List (of DataRow) = DataTable("A").Select ("xxx"."xxx")
Dim drs2 As new List (of DataRow) 
For i As Integer = 0 To Math.Min(14,drs.Count - 1)
    drs2.Add(drs(i))
Next
drs = Nothing

如果是最新版的Foxtable，可以使用linq，如：
Dim drs As List (of DataRow) = DataTables("订单").Select ("")
For Each dr As DataRow In drs.Take(15)
    Output.Show(dr("产品"))
Next