主题：限制行数

    Tables("打印收购窗口_Table1").filter = "_Identify in (" & idxs.trim(",") & ")"
这句代码也就只能显示第五行吧？

 代码写错了

 

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 = ""
        For count As Integer = 0 To drs.Count - 1
            If count = 5 Then
                Exit For
            End If
            idxs = idxs & drs(count)("_Identify") & ","
        Next
        Tables("打印收购窗口_Table1").filter = "_Identify in (" & idxs.trim(",") & ")"
    End If
End If

非常开心！非常感谢！

如果是限制数据表只能显示5个不同单价的数据行，这样显示的数据表就不止5行了，

如何将单价加入到count中限制。

如下

 

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 djs As new List(of String)
        For count As Integer = 0 To drs.Count - 1
            If djs.Contains(drs(count)("单价")) = False Then
                djs.add(drs(count)("单价"))
                idxs = idxs & "'" & drs(count)("单价") & "',"         
                If djs.count = 5 Then
                    Exit For
                End If
            End If
        Next
        Tables("打印收购窗口_Table1").filter = "单价 in (" & idxs.trim(",") & ")"
    End If
End If

老师的帮助真的很有用！