Dim dv As DataView = New DataView(dt) Dim dc() As String = {"Fno", "Fdate"} Dim dtt As New DataTable dtt = dv.ToTable(True, dc) 'Fno,FDate 重复过滤项