Office中国论坛/Access中国论坛

标题: 一个例子,看看问题在哪里？ [打印本页]

作者: china-girl 时间: 2002-11-26 21:16
标题: 一个例子,看看问题在哪里？
一个例子：

新建一个“名单”表，其中有“姓名”字段。在该值段中输入三条记录：比尔盖茨；乔布斯；张朝阳。新建一个“窗体1”，放置一个名为“姓名列表”的列表框控件。在窗体模块中输入一下代码：

Option Compare Database

Private Sub Form_Load()

Dim db As Database '声明数据库对象变量

Dim recName As Recordset '声明记录集对象变量

Dim strName As Field '声明字段对象变量

Dim MyName(3) As String '声明一个存放“姓名”的数组

Dim intI As Integer '声明一个整型变量

Set db = CurrentDb() '指定数据库为当前数据库

Set recName = db.OpenRecordset("名单") '将“名单”表读入记录集

Set strName = recName![姓名] '指定记录集“姓名字段”

intI = 0

Do Until recName.EOF

MyName(intI) = strName ' 将“姓名”字段读入数组

intI = intI + 1

recName.MoveNext '读取记录集的下一行记录

Loop

'以下为将数组赋给姓名列表的代码

Me.姓名列表.RowSourceType = "值列表"

100 Me.姓名列表.RowSource = MyName(0)

For intI = 1 To 3

Me.姓名列表.RowSource = Me.姓名列表.RowSource & ";" & MyName(intI)

Next intI

End Sub

作者: 大熊 时间: 2002-11-26 21:24
没问题

作者: china-girl 时间: 2002-11-26 22:29
不好意思!运行了以后达不到我要的效果!

作者: xlw008 时间: 2002-11-27 18:09
我跟本就看不懂！哈哈！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)