как каждый раз изменять значения заголовка группы в datareport в vb6.0

Question

Я занимаюсь разработкой приложения в vb6.0, здесь я использую порт данных для отображения отчета. Я хочу назначить значения для каждого заголовка группы RptLabel во время выполнения без использования среды данных, пожалуйста, посоветуйте мне добиться этого

Answer 1

Вам необходимо создать иерархический набор записей , чтобы порт данных мог использовать его в качестве источника данных.

Прежде всего, вам нужно установить свойство ActiveConnection набора записей в MsDataShape:

rsDataSource.ActiveConnection = "Provider=MsDataShape;Data Provider=None;"

Вот пример того, как вы можете определить структуру набора записей:

    rsDatasouce.Source = "SHAPE APPEND NEW adInteger As ParentId, " & _
    "New adVarChar(100) As HeaderValue1, " & _
    "New adVarChar(100) As HeaderValue2, " & _
    "((SHAPE APPEND New adInteger As ParentGroupId, " & _
                   "New adInteger As ChildGroupId, " & _
                   "New adVarChar(25) As ChildValue1, " & _ 
                   "New adVarChar(25) As ChildValue2, " & _
                   "((SHAPE APPEND New adInteger As ChildId, " & _
                                  "New adVarChar(8) As SubChildValue1, " & _
                                  "New adVarChar(100) As Description " & _
                     "RELATE ChildGroupId To ChildId) AS ChildDetail) " & _
       "RELATE ParentId To ParentGroupId) AS GroupDetail"

Сделав это, вам нужно заполнить иерархический набор записей.