Problemas com o Data Report.

[Marco Canhoto]

Olá a todos!

tenho alguns relatórios no dataReport que seguem a mesma lógica, então postarei o código de um.

ele usa um código de agrupamento e relacionamento de tabelas. ele usa duas tabelas para tal. A tabela uniadde e a tabela registro. O problema é que os campos da tabela registro estão retornando em branco!

Segue o código:

Private Sub DataReport_Initialize()
  
  If cn.State = adStateOpen Then cn.Close
  
  cn.CursorLocation = adUseClient

  cn.ConnectionString = DataEnvironment1.Connection1

  cn.Open "DSN=odonto"
  
 With formdata
    strInicio = .dataini.Value
    strAte = .datafin.Value
  End With
  
  DataReport2.Title = "Período de: " & strInicio & " até: " & strAte
  
  sql = "SHAPE { "
  sql = sql & "SELECT DISTINCT u.* "
  sql = sql & "FROM unidade u INNER JOIN registro r ON u.codigo = r.codigo "
  sql = sql & "WHERE r.dia "
  sql = sql & "BETWEEN '" & Format(strInicio, "yyyy-mm-dd") & "' "
  sql = sql & "AND '" & Format(strAte, "yyyy-mm-dd") & "' "
  sql = sql & "ORDER BY u.codigo "
  sql = sql & "} AS Command1 "
  sql = sql & "APPEND ({ "
  sql = sql & "SELECT registro.* "
  sql = sql & "FROM registro "
  sql = sql & "WHERE dia "
  sql = sql & " BETWEEN '" & Format(strInicio, "yyyy-mm-dd") & "' "
  sql = sql & "AND '" & Format(strAte, "yyyy-mm-dd") & "' "
  sql = sql & "ORDER BY dia "
  sql = sql & "} AS Command2 "
  sql = sql & "RELATE 'codigo' TO 'codigo') "
  sql = sql & "AS Command2 "
  
  rs.Open sql, cn, adOpenForwardOnly
  
  Set DataReport2.DataSource = rs

Estou usando um DataEnvironment onde o Command1 é da tabela unidade e o command2 é da tabela registro e está como filho do command1.

Desde já, obrigado!

[kuroi]

não sei se entendi direito, e tb não sei se o append vai funcionar não.

tb não uso o datareport então não sei direito, mas não funcionaria se você fizesse um simples select de join e separasse em agrupamentos no proprio datareport??