一个难题
VB 怎么做筛选啊
比如有一组数据 202,203,303,401,202,202,304,305,304
筛选后得202,203,303,401,304,305
也就是把重复的给删除了~~
问题点数：20、回复次数：4Top
1 楼WallesCai（女人之美,在于蠢得无怨无悔,男人之美,在于撒谎撒得白日见鬼）回复于 2005-02-20 22:32:06 得分 0
先排序，升序或降序都可
再比较，相同则删Top
2 楼of123（）回复于 2005-02-20 22:32:48 得分 0
此事容易. 例如利用数据库: 先将数据全部写入一张数据库临时表, 然后:
SELECT DISTINCT myValues INTO yourTable FROM TempTable
Top
3 楼of123（）回复于 2005-02-20 22:52:51 得分 20
不需要排序. 例如, 利用 ListBox( Visible = False ):
Private Declare Function SendMessagebyString Lib "user32" Alias "SendMessageA"(ByVal hWND As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const LB_FINDSTRINGEXACT = &H1A2
Dim i As Integer
Dim a(8) As String
a = Split("202,203,303,401,202,202,304,305,304",",")
List1.Clear
For i = 0 To Ubound(a)
If SendMessagebyString(List1.hWnd, LB_FINDSTRINGEXACT, -1, a(i)) = -1 Then
'如果没有相同数据项
List1.AddItem a(i)
End If
Next i
如果需要排序, 只需将 ListBox 的 Sorted 属性设置为 True.
Top
4 楼huangguanshu（）回复于 2005-02-20 22:59:36 得分 0
用Collection，把数字作为key和item加入，相同就可以排除Top
