标题: 帮忙砍下这段VBA的源码---我怎么不能用 [打印本页] 作者: hahajing 时间: 2003-8-22 06:26 标题: 帮忙砍下这段VBA的源码---我怎么不能用 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
这段源码我从accessxp上没有办法使用，系统提示：database这个变量类型系统没有定义！亲各位高手指点一二！