# Re: 为什么我的List1中无任何选项

Posted by 小呆 on May 08, 1999 at 14:41:18:

In Reply to: 为什么我的List1中无任何选项 posted by jeff on May 08, 1999 at 09:33:28:

: 我的Source Code 如下:

:
: Private Sub Form_Load()
: Dim i As Integer
: Dim k As Boolean
: Dim s As String
:
: Set dbs = OpenDatabase("c:\s\vbdb.mdb")
: Set trade = dbs.OpenRecordset("select 班级资料.班级名称 from 班级资料")
:
: trade.MoveLast
: trade.MoveFirst
: 's = "0"
: For i = 0 To trade.RecordCount - 1
: 'Do Until trade.EOF
:
: If trade("班级名称") <> 0 Then
:
: List1.AddItem trade(0)
: trade.MoveNext
: End If
: ' Loop
:
: Next
: trade.Close
:
: 'List1.ListIndex = -1
: 'List2.ListIndex = -1
: ' List1.ListIndex = -1
:
: End Sub

:
: 我检查过我的资料库中有8笔资料
: 但是我的List1中确无任何资料
: 应该是下列程式的问题
: 可以这样写Program吗?

: If trade("班级名称") <> 0 Then
:
: List1.AddItem trade(0)
: trade.MoveNext
: 很疑惑

=================================================================
Private Sub Form_Load()

Dim dbs As Database
Dim trade As Recordset

Set dbs = OpenDatabase("c:\s\vbdb.mdb")
Set trade = dbs.OpenRecordset("select 班级资料.班级名称 from 班级资料")
List1.Clear

Do While trade.EOF = False
List1.AddItem trade.班级名称 '新增资料栏。
trade.MoveNext '移动到下一个资料栏。
Loop

trade.Close
dbs.Close
End Sub

Follow Ups: