主题：[求助]

不是排序,是要查询未付款前10行,上的代码显示後10行,

这代码都是有这个问题?

Dim drs As List(Of DataRow) = DataTables("表A").Select("司機編號  = '" & e.Form.Controls("TextBox7").Text & "' And 付款 = '未付款'", "_Identify")
Dim idxs As String = ""
Dim count As Integer = 0
For Each dr As DataRow In drs
    If count >= 10 Then
        Exit For
    Else
        idxs &= dr("_Identify") & ","
    End If
Next

If  idxs > "" Then

    Tables("表A").Filter = "_Identify in (" & idxs.trim(",") & ")"

Else

    Tables("表A").Filter = "1=2"

End If

代码可用 请问如何做到筛选前10行 如有20行,现在筛选是显示10-20行,可否筛选後显示1-10行的未付款?

Dim drs As List(Of DataRow) = DataTables("表A").Select("司機編號  = '" & e.Form.Controls("TextBox7").Text & "' And 付款 = '未付款'", "_Identify desc")
Dim idxs As String = ""
Dim count As Integer = 0
For Each dr As DataRow In drs
    If count >= 10 Then
        Exit For
    Else
        idxs &= dr("_Identify") & ","
    End If
Next

If  idxs > "" Then

    Tables("表A").Filter = "_Identify in (" & idxs.trim(",") & ")"

Else

    Tables("表A").Filter = "1=2"

End If

代码没有筛选10行资料,是所是有未付款行?

 回复17楼，什么意思？代码不应该有错了啊

如表有20行未付租筛选後应只显示前10行,但现在筛选後是20行?

 代码没有问题啊，筛选的是十行数据啊。

 

 不行你就做发例子上来吧。