加载怎么多干什么?

既然是这么多条记录，就说明不是供用户浏览的，那么为何不考虑使用数组呢？
也许有一些地方数组不如list，那就用list数组……
或者放在数据库中

3万几个,你以为不用搜索你就能找出来吗,显示那么多有啥用.再多用表格控件分页显示

[code=c]
Option Explicit

Private Const LB_GETCOUNT As Long = &H18B
Private Const LB_GETCURSEL As Long = &H188

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Private Sub Command1_Click()
    Debug.Print "ListIndex", SendMessage(List1.hwnd, LB_GETCURSEL, 0, ByVal 0)
    Debug.Print "ListCount", SendMessage(List1.hwnd, LB_GETCOUNT, 0, ByVal 0)
End Sub

Private Sub Form_Load()
    Dim i As Long
    For i = 0 To &H10000
        List1.AddItem i
    Next
End Sub
[/code]

我呵呵笑了
http://www.hj175.com