主题：限制行数

你筛选,和你这里获取集合互不相干.

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行
不起作用，有其他代码可以代替的吗？

DataTables("打印收购窗口_Table1") 没有这样的写法吧。

Tables("打印收购窗口_Table1").DataTable

帮你一下代码吧，如果要限制，要这样写。

 

Dim drs As List(Of DataRow)
Dim xj As WinForm.textBox = e.Form.Controls("姓名")

If xj.Text > "" Then
    Dim fdr As DataRow = DataTables("收购").find("[姓名] = '" & xj.Text & "' and [凭证号] is null")
    If fdr IsNot Nothing Then
        Dim Filter As String
        Filter =  "[姓名] = '" & xj.Text & "' and 凭证号 Is null And [重量] <> 0 And [日期] = #" & vars("adate") & "#"
        drs = Tables("打印收购窗口_Table1").DataTable.Select(filter)
        Dim idxs As String = ""
        Dim count As Integer = 0
        For count To drs.Count - 1
            If count = 5 Then
                Exit For
            End If
            idxs = drs(count)("_Identify") & ","
        Next
        Tables("打印收购窗口_Table1").filter = "_Identify in (" & idxs.trim(",") & ")"
    End If
End If

 

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

 

是的，你改一下

 

For count = 0 To drs.Count - 1

只能显示一行，为什么？