Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Data Dinamic ActivaReports нужна помощь ... / 4 сообщений из 4, страница 1 из 1
26.11.2009, 10:42
    #36332830
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Data Dinamic ActivaReports нужна помощь ...
Всем здравствуйте !!!
Не могу никак разобраться с этим репортом.
Очень хорошая штука, но все примеры для реляционных баз.
Кто этим пользуются может подскажут ответ ?
Из базы получаю данные в виде отдельных строк типа:

Код: plaintext
  Ret="a1\a2\a3\a4|b1\b2\b3\b4|c1\c2\c3\c4|d1\d2\d3\d4"
Я ее разбираю, но почему-то получаю в отчете только последнюю запись ...

Код: plaintext
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.
Private Sub ActiveReport_FetchData(EOF As Boolean)
Dim Ret As String, Ret1 As String
Dim rec As Integer, cnt As Integer, n As Integer
Dim arr() As String

Ret="a1\a2\a3\a4|b1\b2\b3\b4|c1\c2\c3\c4|d1\d2\d3\d4"
Varfull = Split(Ret, "|")
rec = UBound(Varfull)
n =  0 
    For cnt =  0  To rec -  1 
    n = n +  1 
    Ret1 = Varfull(cnt)
    arr = Split(Ret1, "\")
    Fields("ProductID").VALUE = arr( 0 )
    Fields("ProductName").VALUE = arr( 1 )
    Fields("QuantityPerUnit").VALUE = arr( 2 )
    Fields("UnitPrice").VALUE = arr( 3 )
    Next cnt
End Sub

Private Sub ActiveReport_Initialize()
    Fields.Add "ProductID"
    Fields.Add "ProductName"
    Fields.Add "QuantityPerUnit"
    Fields.Add "UnitPrice"
End Sub

Спасибо, очень нужна подсказка .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2009, 15:14
    #36333869
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Data Dinamic ActivaReports нужна помощь ...
Вы несколько не так делаете - на деле все даже проще:

Код: plaintext
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.
Option Explicit

Const Ret As String = "a1\a2\a3\a4|b1\b2\b3\b4|c1\c2\c3\c4|d1\d2\d3\d4"

Dim m_mRows() As String, iRow As Long

Private Sub ActiveReport_FetchData(EOF As Boolean)
    Dim m() As String

    If iRow > UBound(m_mRows) Then EOF = True: Exit Sub

    m = Split(m_mRows(iRow), "\")
    Fields("ProductID").Value = m( 0 )
    Fields("ProductName").Value = m( 1 )
    Fields("QuantityPerUnit").Value = m( 2 )
    Fields("UnitPrice").Value = m( 3 )
    iRow = iRow +  1 
    EOF = False
End Sub

Private Sub ActiveReport_Initialize()
    Fields.Add "ProductID"
    Fields.Add "ProductName"
    Fields.Add "QuantityPerUnit"
    Fields.Add "UnitPrice"
End Sub

Private Sub ActiveReport_ReportStart()
    m_mRows = Split(Ret, "|")
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2009, 15:18
    #36333875
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Data Dinamic ActivaReports нужна помощь ...
ValeriuВсем здравствуйте !!!
Очень хорошая штука, но все примеры для реляционных баз.

Да и примеры там есть на нужную вам тему - смотрите начинающиеся на Unbound .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2009, 16:38
    #36334100
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Data Dinamic ActivaReports нужна помощь ...
Спасибо большое, заработало !!! ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Data Dinamic ActivaReports нужна помощь ... / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]