主题：设计筛选行

e.Form.Controls("Table1").Select()
e.Form.Controls("Table1").Table.Select(0,0)
Syscmd.Filter.HideSameValues()

1、第二列改为整数列

2、代码：

 

If DataTables("表A").DataCols.Contains("tmp") = False Then
    DataTables("表A").DataCols.Add("tmp",Gettype(String),1)
    Tables("表A").cols("tmp").Visible = False
    Tables("窗口1_Table1").cols("tmp").Visible = False
End If
Dim drs As List(of DataRow) = DataTables("表A").Select("","姓名,第二列 desc")
drs(0)("tmp") = "0"
For i As Integer = 1 To  drs.count - 1
    If drs(i)("姓名") = drs(i-1)("姓名") Then
        drs(i)("tmp") = "1"
    Else
        drs(i)("tmp") = "0"
    End If
Next
Tables("窗口1_Table1").Filter = "tmp = '0'"

 

我基本上不认为编程是一个技术活，因为只要基础通了，一切都通了，A、B、C这样搭建起来即可。

还有别人给你写的代码，你要去理解，将其消化为自己的知识，这样别人对你的帮助，才有意义。

看不懂你在问什么。

If DataTables("表A").DataCols.Contains("tmp") = False Then
    DataTables("表A").DataCols.Add("tmp",Gettype(String),1)
    Tables("表A").cols("tmp").Visible = False
    Tables("窗口1_Table1").cols("tmp").Visible = False
End If
Dim drs As List(of DataRow) = DataTables("表A").Select("","姓名,第二列 desc")
drs(0)("tmp") = "0"
For i As Integer = 1 To  drs.count - 1
    If drs(i)("姓名") = drs(i-1)("姓名") Then
        drs(i)("tmp") = "1"
    Else
        drs(i)("tmp") = "0"
    End If
Next
Tables("窗口1_Table1").Filter = "tmp = '0' And 第二列 <> 0"

我看不懂你现在的问题，还有，最好一次将问题描述清楚。