Office中国论坛/Access中国论坛

标题: 求助！关于AOD循环问题，先谢谢了！ [打印本页]

作者: 坡芽歌书 时间: 2009-7-9 11:34
标题: 求助！关于AOD循环问题，先谢谢了！
本帖最后由坡芽歌书于 2009-7-9 12:59 编辑

表1：（只有一个字段）为“字段1”
表1内容为：

字段1

表2：（有三个字段）为“字段1”、“字段2”，“文本”
表2内容为

字段1	字段2	文本
5	1	1
5	2	1
5	3	1
7	4	2
7	5	2

现在想要得到表2的结果为：

字段1	字段2	文本
5	501	1
5	502	1
5	503	1
7	701	2
7	702	2

我用如下代码，可是不能实现，请高手指教，谢谢！

Private Sub Command0_Click()
Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim recc As New ADODB.Recordset
Dim i As Integer
Set con = CurrentProject.Connection
rec.Open "表1", con, adOpenKeyset, adLockOptimistic
recc.Open "表2", con, adOpenKeyset, adLockOptimistic
rec.MoveFirst
i = 1
Do While Not rec.EOF
If rec!字段1 = recc!字段1 Then
Do While Not recc.EOF
recc!字段2 = recc!字段1 * 100 + i
i = i + 1
recc.MoveNext
Loop
End If
recc.Close
Set recc = Nothing

rec.MoveNext
Loop

rec.Close
Set rec = Nothing
End Sub
[attach]38821[/attach]

作者: 坡芽歌书 时间: 2009-7-10 15:07
此帖现在结帖了，我自己已经解决问题了！

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