主题：限制行数

Dim drs As List(Of DataRow)
Dim xj As WinForm.textBox = e.Form.Controls("姓名")
drs = DataTables("收购").Select("[姓名] = '" & xj.Text & "'and [凭证号] is null")
If xj.text = "" Or drs.count=0 Then
    MessageBox.Show("请重新输入查询条件!")
Else
    Dim Filter As String
    Filter =  "[猪主姓名] = '" & xj.Text & "'and 收购凭证号 Is null And [重量] <> 0 And [日期] = #" & vars("adate") & "#"
    Tables("打印收购窗口_Table1").Filter = Filter

end if

如何在上述代码中加入限制显示的行数不超过5行？

Dim drs As List(Of DataRow)
Dim xj As WinForm.textBox = e.Form.Controls("姓名")
drs = DataTables("收购").Select("[姓名] = '" & xj.Text & "'and [凭证号] is null")
If xj.text = "" Or drs.count=0 Then
    MessageBox.Show("请重新输入查询条件!")
Else
    Dim Filter As String
    Filter =  "[姓名] = '" & xj.Text & "'and 凭证号 Is null And [重量] <> 0 And [日期] = #" & vars("adate") & "#"
    Tables("打印收购窗口_Table1").Filter = Filter

end if

如何在上述代码中加入限制显示的行数不超过5行？

应该怎样加入代码呢？

因为每打印一张piao据，都有一个凭证号，每张piao据最多只可打印5行，如果超过5行，就会造成2张或更多piao据同号，因而限制只显示5行，就不出现piao据同号。

有没有更好的办法。

Dim drs As List(Of DataRow)
Dim xj As WinForm.textBox = e.Form.Controls("姓名")
drs = DataTables("收购").Select("[姓名] = '" & xj.Text & "'and [凭证号] is null")
If xj.text = "" Or drs.count=0 Then
    MessageBox.Show("请重新输入查询条件!")
Else
    Dim Filter As String
    Filter =  "[姓名] = '" & xj.Text & "'and 凭证号 Is null And [重量] <> 0 And drs.count <= 5 and [日期] = #" & vars("adate") & "#"
    Tables("打印收购窗口_Table1").Filter = Filter
end if

用drs.count <= 5，为什么不行？

LockBaseMainForm() '锁定主窗口
Dim drs As List(Of DataRow)
Dim xj As WinForm.textBox = e.Form.Controls("猪主姓名")
drs = DataTables("收购").Select("[猪主姓名] = '" & xj.Text & "'and [收购凭证号] is null")
If xj.text = "" Or drs.count=0 Then
    MessageBox.Show("请重新输入查询条件!")
Else
    Dim Filter As String
    Filter =  "[猪主姓名] = '" & xj.Text & "'and 收购凭证号 Is null And [重量] <> 0 And [日期] = #" & vars("adate") & "#"
    Tables("打印收购窗口_Table1").Filter = Filter
    DataTables("打印收购窗口_Table1").LoadTop = 5  '每页加载5行
   
    Tables("打印收购窗口_Table1").SetHeaderRowHeight(40)
    Tables("打印收购窗口_Table1").DefaultRowHeight = 25
    Tables("打印收购窗口_Table1").SetColVisibleWidth("编号|150|猪主姓名|120|头数|80|重量|80|单价|80|收购金额|120")
    DataTables("收购单价汇总").DataRows.Clear
    DataTables("收购单明细表").DataRows.Clear
    For Each r10 As DataRow In drs
        Dim r20 As Row = Tables("收购单明细表").AddNew
        r20("猪主姓名") = r10("猪主姓名")
        r20("头数") = r10("头数")
        r20("重量") = r10("重量")
        r20("单价") = r10("单价")
        r20("收购金额") = r10("收购金额")
        r20("猪主地址") = r10("猪主地址")
        r20("日期") = vars("adate")
    Next
    Dim g1 As New GroupTableBuilder("统计表1",  DataTables("收购单明细表"))
    g1.Groups.AddDef("猪主姓名")
    g1.Groups.AddDef("单价")
    g1.Groups.AddDef("猪主地址")
    g1.Totals.AddDef("头数")
    g1.Totals.AddDef("重量")
    g1.Totals.AddDef("收购金额")
    g1.Build()
    For Each r10 As Row In Tables("统计表1")
        Dim r20 As Row = Tables("收购单价汇总").AddNew
        r20("猪主姓名") = r10("猪主姓名")
        r20("头数") = r10("头数")
        r20("重量") = r10("重量")
        r20("单价") = r10("单价")
        r20("收购金额") = r10("收购金额")
        r20("猪主地址") = r10("猪主地址")
        r20("日期") = vars("adate")
    Next
    vars("io") = "已汇总"
    vars("xx5") = 1
    DataTables("收购单价汇总").DeleteFor("[重量] = 0")
    DataTables("统计表1").DataRows.Clear
    MainTable = Tables("MAIN")
End If
UnLockBaseMainForm() '解锁主窗口

我用的是模式窗口，如果用加载会影响主窗口，使主窗口每次重新加载一次，用filter就不会有这种情况。

上述代码中

DataTables("打印收购窗口_Table1").LoadTop = 5  '每页加载5行
不起作用，有其他代码可以代替的吗？

 For count To drs.Count - 1
这句代码好像有错？