如果行数比较多建议使用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