Office中国论坛/Access中国论坛

标题: 如何把一个表中的每条记录的特定字段值，依次赋给一个变量。 [打印本页]

作者: 执成 时间: 2007-2-26 00:01
标题: 如何把一个表中的每条记录的特定字段值，依次赋给一个变量。
见附件。[attach]23212[/attach]

作者: 红尘如烟 时间: 2007-2-26 01:01
是不是这样？

[attach]23215[/attach]

[此贴子已经被作者于2007-2-25 17:02:43编辑过]

作者: andymark 时间: 2007-2-26 01:40
也可以把变量存在数组或集合

作者: 红尘如烟 时间: 2007-2-26 01:56
请教版主，如果记录数不是固定的要如何声明数组？

作者: andymark 时间: 2007-2-26 03:06

以下是引用红尘如烟在2007-2-25 17:56:00的发言：

请教版主，如果记录数不是固定的要如何声明数组？

Dim I As Long
Dim StrMsg() As String

Private Sub Form_Load()
Dim LngCount As Long
Dim Rs As New ADODB.Recordset
Rs.Open "SELECT * FROM 日程", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.MoveFirst

LngCount = Rs.RecordCount

ReDim StrMsg(LngCount) As String

Do While Not Rs.EOF

StrMsg(I) = Rs.Fields("内容")
I = I + 1
Rs.MoveNext

Loop

For I = 0 To LngCount - 1
Debug.Print StrMsg(I)
Next I

Set Rs = Nothing

End Sub

作者: 红尘如烟 时间: 2007-2-26 04:36
多谢指教！

[em07][em07][em07]

[attach]23223[/attach]

[此贴子已经被作者于2007-2-25 21:48:58编辑过]

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