筛选行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

能帮忙看看这短代码吗

设置筛选的两个条就是债权人的最后一行的分别欠款不为0的，第二只筛选出相同债权人的最后一行，

比如债权人有a和b 还有c 其中债权人为a的欠款明细追后一行为0，那么债权人为a的都不显示，

剩下的只显示最后一行，比如b和c最后一行不为0，那么只显示b和c的最后行，感谢感谢

Dim idx As String = "-1,"

Dim idx_temp As String = ""

Dim pdr As DataRow = Nothing

Dim count As Integer = 0

Dim cs As String = "债权人"

For Each dr As DataRow In DataTables("欠款明细").Select("", cs)

Dim flag As Boolean = False

If pdr IsNot Nothing Then

For Each c As String In cs.split(",")

If pdr(c).replace(" ","") <> dr(c).replace(" ", "") Then

flag = True

Exit For

End If

If flag Then

If pdr("欠款明细") <> 0 Then

idx &= pdr("_Identify") & ","

End If

pdr = dr

If pdr IsNot Nothing Then

If pdr("欠款明细") <> 0 Then

idx &= pdr("_Identify") & ","

End If

e.Form.controls("Table6").Table.Filter = "_Identify In (" & idx.trim(",") & ")"

For Each dr As DataRow In DataTables("欠款明细").Select("", cs)

改成

For Each dr As DataRow In DataTables("欠款明细").Select("", cs & ", _Identify desc")

如果还有问题，上传一个实例测试。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:筛选.table

还是不对呢？感谢感谢，第一列不同的内容的最后一行都是0理论上都一个隐藏，但是筛选的时候还是被筛选出了，感谢感谢

此主题相关图片如下：搜狗截图18年09月02日2110_1.png

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列"
'For Each dr As DataRow In DataTables("欠款明细").Select("", cs)
For Each dr As DataRow In DataTables("表A").Select("", cs & ", _Identify")
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c)<> dr(c) Then
                flag = True
                Exit For
            End If
        Next
        If flag Then
            'msgbox(pdr("第一列") & " " & pdr("第二列") & " " & dr("第二列") & " " & dr("第一列"))
            If pdr("第二列") <> 0 Then
                idx &= pdr("_Identify") & ","
            End If
        End If
    End If
    pdr = dr
Next
If pdr IsNot Nothing Then
    If pdr("第二列") <> 0 Then
        idx &= pdr("_Identify") & ","
    End If
End If
e.Form.controls("Table1").Table.Filter = "_Identify In (" & idx.trim(",") & ")"

主题：筛选行