MELHOR FORMA DE PREENCHER MSFLEXGRID

XXXANGELSXXX 10/01/2011 16:07:52
#361769 Resposta escolhida

Sub FormataGrid()
Dim WsHeader As String
With TDBGrid1
.Clear
WsHeader = [Ô]N.Ocorrência|Cliente |Nome/Razão Social |Telefone |Data Reg. |Hora Reg. |Usuário/Colaborador |Status |||Local da Ocorrência |Classificação da Ocorrência |[Ô]
.FormatString = WsHeader
.ColWidth(8) = 0: .ColWidth(9) = 0: .ColWidth(12) = 0
.Rows = 1
.FixedRows = 1
.Cols = 13
.SelectionMode = 1 - byrow
End With
End Sub
[ô]123Preenche Grid Principal
Sub PreencherGrid()
On Error GoTo ErrorLine
Conecta True
Bar.Value = 0
Set MyRs = New ADODB.Recordset
StrSql = [Ô]select a.idmov,a.movclicodigo,b.pessnome,d.contdescricaocontato,a.movdataregistro,a.movhoraregistro,c.usernome,a.movstatusrecepcao,a.movobservacoes,e.locdescricao,f.classdescricao[Ô]
StrSql = StrSql & [Ô] from movimentoocorrencias a,cadpessoas b,cadusuarios c,cadpessoascontato d,cadlocaisocorrencia e,cadclassificacaoocorrencias f[Ô]
If chTrans.Value = Checked Then StrSql = StrSql & [Ô],movimentoocorrenciasauxiliar g[Ô]
StrSql = StrSql & [Ô] where a.movclicodigo=b.pesscodigo and a.movidcolaborador=c.userid and a.movclicodigo=d.pesscodigo and a.movlocalocorrencia=e.id and a.movclassificacao=f.id and d.contprincipal=1 [Ô]
StrSql = StrSql & [Ô] order by a.movdataregistro,a.movhoraregistro[Ô]
MyRs.Open (StrSql), Conexao, adOpenStatic, adLockReadOnly
Call FormataGrid
If MyRs.RecordCount > 0 Then
Bar.Visible = True
Bar.Max = MyRs.RecordCount
With TDBGrid1
While Not MyRs.EOF
StrSql = Format(MyRs!idmov, [Ô]0000000000[Ô])
StrSql = StrSql & Chr(9) & MyRs!movclicodigo
StrSql = StrSql & Chr(9) & MyRs!pessnome
StrSql = StrSql & Chr(9) & MyRs!contdescricaocontato
StrSql = StrSql & Chr(9) & Format(MyRs!movdataregistro, [Ô]dd/mm/yyyy[Ô])
StrSql = StrSql & Chr(9) & Format(MyRs!movhoraregistro, [Ô]hh:mm:ss[Ô])
StrSql = StrSql & Chr(9) & MyRs!usernome
StrSql = StrSql & Chr(9) & MyRs!movstatusrecepcao
StrSql = StrSql & Chr(9) & MyRs!idmov
StrSql = StrSql & Chr(9) & MyRs!movobservacoes
StrSql = StrSql & Chr(9) & MyRs!locdescricao
StrSql = StrSql & Chr(9) & MyRs!classdescricao
StrSql = StrSql & Chr(9) & MyRs!idmov
.AddItem StrSql
MyRs.MoveNext
Wend
Bar.Visible = False
.Row = 1: .Col = 0
End With
MyRs.Close
Set MyRs = Nothing
Else
TDBGrid1.Clear: TDBGrid1.Row = 0: TDBGrid1.Col = 0: Call FormataGrid
End If
End Sub

Essa é a forma que eu preencho