主题：[求助]窗口中动态统计显示行的数据

' ------动态模糊筛选的代码------

Dim T As String = e.form.Controls("TextBox1").Value '定义控件的值

Dim Filter As String  '定义筛选

For Each dc As Col In Tables("清洗管理").Cols '遍历表的所有列

    If dc.DataCol.IsDate OrElse dc.DataCol.IsBoolean OrElse dc.DataCol.IsNumeric Then  '如果是时间列,逻辑列,数值列

        Continue For    '排除

    End If

    If Filter > "" Then

        Filter  = Filter & " Or "

    End If

    Filter = Filter  & "[" & dc.Name & "] Like '*" & T & "*'"    '根据控件值迷糊筛选

Next

Tables("清洗管理").Filter = Filter  '将数据筛选出来

Dim 总套数 As WinForm.TextBox = e.Form.Controls("总套数")

Dim 总行数 As WinForm.TextBox = e.Form.Controls("总行数")

总套数.Text = Tables("清洗管理").Compute("Sum(套数)")

总行数.Text = Tables("清洗管理").Compute("Count(_Identify)")