Office中国论坛/Access中国论坛

标题: 这样的代码出错， [打印本页]

作者: yxgyhebo 时间: 2003-12-8 23:57
标题: 这样的代码出错，
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 = "值列表"

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

For intI = 1 To 3

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

Next intI

End Sub

作者: yxgyhebo 时间: 2003-12-9 00:03
?????

作者: zhengjialon 时间: 2003-12-9 00:42
有没有引用DAO3。6？并且放在ADO的上面？

作者: yxgyhebo 时间: 2003-12-9 07:27
噢，这样子呀，都怪那教程，没说清楚。。。谢谢。

作者: sea.er 时间: 2003-12-9 20:42
呵呵，有意思

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