[RESOLVED] how to use grouping in datareport and to use shape command

[binilmb]

how to use grouping in datareport and to use shape command

[dglienna]

Not sure, but it should be similar to the mshflexgrid:

Shaped msHflexgrid

[groval]

First initialize the dataEnviroment like DataEnviroment1 using the tables that you like, and then create then data report with groupHeader like you want..

this code is for datareport.

Private Sub DataReport_Initialize()
 
Printer.Orientation = vbPRORLandscape
DataReport1.Orientation = rptOrientLandscape
  
  'define as variáveis usadas no projeto
  Dim strSQL As String
 ' Dim strFin As String
 ' Dim strInicio As String
  Dim oConn As New ADODB.Connection
  Dim oRS As New ADODB.Recordset
  
  oConn.CursorLocation = adUseClient
  'estou usando a conexão que ja foi criada no dataenvironment
  oConn.ConnectionString = DataEnvironment1.Connection1
  'abre a conexão com o banco de dados Norhtwind.mdb em d:\teste
  oConn.Open
  
   'define o titulo do relatório
  DataReport1.Title = "TODO SOBRE QUIEN ES QUIEN"
  
  'define o comando SHAPE
    
  strSQL = "SHAPE {select * from basicos WHERE ID = " & Val(FrmQuienEsQuienONTS.Text29) & " " & "} AS Command1 APPEND ({select * from judicializacion} AS Command3 RELATE 'ID' TO 'ID_PROFILE') AS Command3"
  MsgBox strSQL 'ESTE SE DEBE QUITAR
  
  oRS.Open strSQL, oConn, adOpenForwardOnly
  
  'atribui o recordset gerado ao datareport
  Set DataReport1.DataSource = oRS
  
End Sub

Added [vbcode][/vbcode] tags for clarity -
Hack

[Hack]

Moved to Reporting section.