Olá pessoal as vezes os clientes tem uma imaginaçao muiiito fértil e quem acaba pagando o pato é nós programadores como acho que tudo no VB é possivél,

Vamos lá.

 

Tem um mflexgrid certo o padrão é o seguinte

DATA - VALOR - DATAVENCIMENTO - HISTORICO - NUMERO

 

am baixo de cada item é incluso o respectivo dado se for um datagrid certo.

O cara quer na vertical e se possivel com o MSFLEX por ser mais bonito.

 

DATA                     -  20/12/2004 

VALOR                    -         50,00

DATA VENCIMENTO  -   20/01/2004

HISTORICO             -   Bla Bla Bla

NUMERO                 -   12545

 

Já estou quebrando a cabeça , mas se alguém poder ajudar valeu.. 

 

Pergunta a Cada coluna existira um novo registro?

 ou

Os registros viram abaixo de acordo  com o exemplo?

Os registros ficarão em cada linha igual o exemplo.

Pretendo trabalhar com duas colunas tipo a primeira nome do campo e a segunda o registro.

Ricardo,

           estarei preparando um exemplo e enviando para vc. blz?

 

Valeu..

'''''''''''''''''''''
'Não  esquesa do ADO
'''''''''''''''''''''
'declare
Public oCmmd              As ADODB.Command
Public oConn              As ADODB.Connection
Public oRs                As ADODB.Recordset
Public sSql               As String
 On Error GoTo ErroConc
   
    Set oConn = New ADODB.Connection
    oConn.Open ("escrinque de conecção")
ErroConc:
    If Err.Number <> 0 Then
      MsgBox ("Err.Number = " & Err.Number & " Err.Description = " & Err.Description)
    End If
End Sub
'''''''''''''''''''''''

Private Sub Command1_Click()
 
  Dim i As Integer
  Set oRs = New ADODB.Recordset
 
  sSql = "select campo1, campo2 ... from Tabela where Condição1 and condição2 "
  Set oRs = oConn.Execute(sSql)
 
  If oRs.EOF Then
   
       With .GridBilhete
              .TextMatrix(0, 0) = "Titulo da linha0"
              .TextMatrix(1, 0) = "Titulo da linha1"
              .TextMatrix(2, 0) = "Titulo da linha2"
              i = 0
              Do While Not oRs.EOF
                 .Cols = 2
                 .Rows = i + 1
                 .ColWidth(i) = 1000
                 .ColAlignment(i) = flexAlignLeftCenter
                 .TextMatrix(i, 1) = oRs(0)
                 i = i + 1
                 oRs.MoveNext
              Loop
             
           End With
   
  End If
 
 
End Sub
''''''''''''''''''''''
'propriedade da grid
'fixedcols = 1
'fixedrows = 0
''''''''''''''''''''''''
Private Sub Form_Load()

End Sub