none
Crystal imprimir DataGridView RRS feed

  • Pergunta

  • Bom Dias a Todos, tenho um DataGridView e gostaria de imprimi-lo em um Relatório Crystal Reports,

    Carrego o DataGridView assim

     

            If optCliente.Checked = True Then
    
                Try
    
                    strSelGridOS = "SELECT OS_ID AS OS,OS_DTENTRADA AS DTENTRADA,STA_DESCRICAO AS DESCRICAO,CLI_NOME AS CLIENTE,OS_EQUIP,OS_NUMEQUIP,OS_OBJ,OS_NUMOBJ,OS_VALOR AS VALOR" & _
    
                                   " FROM CADOS" & _
    
                                   " LEFT JOIN CADCLI ON CLI_ID = OS_IDCLI" & _
    
                                   " LEFT JOIN CADSTATUS ON STA_CODIGO = OS_STATUS" & _
    
                                   " WHERE CLI_NOME LIKE '%" & txtPesquisar.Text & "%'"
    
                    objConexao.Conectar()
    
                    objConexao.Comando = New MySqlCommand(strSelGridOS, objConexao.Conexao)
    
                    objConexao.da = New MySqlDataAdapter(strSelGridOS, objConexao.Conexao)
    
                    objConexao.ds = New DataSet
    
                    objConexao.da.Fill(objConexao.ds, "cadOS")
    
                    Me.GridStatus.DataSource = objConexao.ds.Tables("cadOS")
    
                    GridStatus.Columns(0).Width = 60
    
                    GridStatus.Columns(1).Width = 80
    
                    GridStatus.Columns(2).Width = 150
    
                    GridStatus.Columns(3).Width = 350
    
                    GridStatus.Columns(4).Width = 350
    
                    GridStatus.Columns(5).Width = 350
    
                    GridStatus.Columns(6).Width = 350
    
                    GridStatus.Columns(7).Width = 350
    
                    GridStatus.Columns(8).Width = 190
    
    
    
                    objConexao.Desconectar()
    
                Catch ex As Exception
    
                    MsgBox(Err.Description)
    
                    objConexao.Desconectar()
    
                End Try
    
            End If
    

     

     

    Como posso fazer isso? 

    quarta-feira, 29 de junho de 2011 13:28

Respostas