Возникла такая проблема, беру recordset (из формы скажем), хочу на его базе создать второй, выбрав только нужные записи. После чего применить этот новый Recordset к отчету.
Делаю примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Dim oRS As ADODB.Recordset
Set oRS = New ADODB.Recordset
'
oRS.Fields.Append "AppName", adVarChar, 100 , adFldMayBeNull
oRS.Fields.Append "ID", adBigInt, , adFldMayBeNull
'
oRS.open
'
' Далее в цикле по старому рекордсету, заполяю новый
'
Do While Not oRS_old.EOF
oRS1.AddNew
oRS!AppName = oRS_old.Fields("AppName")
oRS![ID] = oRS_old.Fields("ID")
oRS.Update
'
oRS_old.MoveNext
Loop
'
' Применяю к отчету
'
Set Me.Recordset = oRS.Clone
'
oRS.Close
oRS_old.Close
'
Set oRS = Nothing
Set oRS_old = Nothing
В отчете полям присвоены источники данных ID и AppName.
В результате всего отображается правильное количество строк, но нет самих значений!
Проверяю новый Recordset, все в порядке, данные есть...
Где грабли?
