FLEXGRID - COR DA COLUNA
O problema é o seguinte: com o codigo abaixo mudo a configuração do cabeçalho do Grid, colocando em negrito e mudandado a cor da celula, acontece que a celula da ultima coluna (.TextArray(13) = [Ô]Código[Ô]) não assume a configuração, porque?
Private Sub CabecalhodoGridLtd()
[ô] configuar o grid
With Grid
.GridLines = flexGridFlat
.FixedRows = 1
.FixedCols = 0 [ô]certo 0
.HighLight = flexHighlightAlways
.SelectionMode = flexSelectionByRow
.CellFontBold = True
.Cols = 14 [ô] Número de colunas(incluindo o cabecalho)
.Rows = 1 [ô] Número de linhas(com cabecalho)
.TextArray(0) = [Ô]ID[Ô]
.ColWidth(0) = 360 [ô] Largura da coluna 0
.ColAlignment(0) = 5
.TextArray(1) = [Ô]Pos.[Ô]
.ColWidth(1) = 560
.ColAlignment(1) = 4
[ô]
.TextArray(2) = [Ô]Qtd[Ô]
.ColWidth(2) = 580
.ColAlignment(2) = 4
[ô]
.TextArray(3) = [Ô]Disp.[Ô]
.ColWidth(3) = 550
.ColAlignment(3) = 4
[ô]
.TextArray(4) = [Ô]Descrição do Material[Ô]
.ColWidth(4) = 5980
.ColAlignment(4) = 1
.TextArray(5) = [Ô]Origem[Ô]
.ColWidth(5) = 740
.ColAlignment(5) = 4
.Tag = [Ô]Letra[Ô]
.TextArray(6) = [Ô]Destino[Ô]
.ColWidth(6) = 740
.ColAlignment(6) = 4
.TextArray(7) = [Ô]OF/RC[Ô]
.ColWidth(7) = 850
.ColAlignment(7) = 4
.TextArray(8) = [Ô]Entr. /p[Ô]
.ColWidth(8) = 840
.ColAlignment(8) = 4
.TextArray(9) = [Ô]SaÃda[Ô]
.ColWidth(9) = 950
.ColAlignment(9) = 4
.TextArray(10) = [Ô]Receb.[Ô]
.ColWidth(10) = 580
.ColAlignment(10) = 4
.TextArray(11) = [Ô]Obra[Ô]
.ColWidth(11) = 560
.ColAlignment(11) = 4
.TextArray(12) = [Ô]Fábr.[Ô]
.ColWidth(12) = 560
.ColAlignment(12) = 4
.TextArray(13) = [Ô]Código[Ô]
.ColWidth(13) = 700
.ColAlignment(13) = 4
End With
[ô]coloca o cabeçalho em negrito
For i = 0 To Grid.Cols - 1
Grid.Row = 0
Grid.Col = i
Grid.CellAlignment = flexAlignCenterCenter
Grid.CellFontBold = True
Grid.CellBackColor = &HC0C0C0
Grid.CellFontSize = 9
Grid.CellFontName = [Ô]times new roman[Ô]
Next i
End Sub
Private Sub CabecalhodoGridLtd()
[ô] configuar o grid
With Grid
.GridLines = flexGridFlat
.FixedRows = 1
.FixedCols = 0 [ô]certo 0
.HighLight = flexHighlightAlways
.SelectionMode = flexSelectionByRow
.CellFontBold = True
.Cols = 14 [ô] Número de colunas(incluindo o cabecalho)
.Rows = 1 [ô] Número de linhas(com cabecalho)
.TextArray(0) = [Ô]ID[Ô]
.ColWidth(0) = 360 [ô] Largura da coluna 0
.ColAlignment(0) = 5
.TextArray(1) = [Ô]Pos.[Ô]
.ColWidth(1) = 560
.ColAlignment(1) = 4
[ô]
.TextArray(2) = [Ô]Qtd[Ô]
.ColWidth(2) = 580
.ColAlignment(2) = 4
[ô]
.TextArray(3) = [Ô]Disp.[Ô]
.ColWidth(3) = 550
.ColAlignment(3) = 4
[ô]
.TextArray(4) = [Ô]Descrição do Material[Ô]
.ColWidth(4) = 5980
.ColAlignment(4) = 1
.TextArray(5) = [Ô]Origem[Ô]
.ColWidth(5) = 740
.ColAlignment(5) = 4
.Tag = [Ô]Letra[Ô]
.TextArray(6) = [Ô]Destino[Ô]
.ColWidth(6) = 740
.ColAlignment(6) = 4
.TextArray(7) = [Ô]OF/RC[Ô]
.ColWidth(7) = 850
.ColAlignment(7) = 4
.TextArray(8) = [Ô]Entr. /p[Ô]
.ColWidth(8) = 840
.ColAlignment(8) = 4
.TextArray(9) = [Ô]SaÃda[Ô]
.ColWidth(9) = 950
.ColAlignment(9) = 4
.TextArray(10) = [Ô]Receb.[Ô]
.ColWidth(10) = 580
.ColAlignment(10) = 4
.TextArray(11) = [Ô]Obra[Ô]
.ColWidth(11) = 560
.ColAlignment(11) = 4
.TextArray(12) = [Ô]Fábr.[Ô]
.ColWidth(12) = 560
.ColAlignment(12) = 4
.TextArray(13) = [Ô]Código[Ô]
.ColWidth(13) = 700
.ColAlignment(13) = 4
End With
[ô]coloca o cabeçalho em negrito
For i = 0 To Grid.Cols - 1
Grid.Row = 0
Grid.Col = i
Grid.CellAlignment = flexAlignCenterCenter
Grid.CellFontBold = True
Grid.CellBackColor = &HC0C0C0
Grid.CellFontSize = 9
Grid.CellFontName = [Ô]times new roman[Ô]
Next i
End Sub
Verifique se não tem campos a mais no grid. Se estiver usando o MshFlexgrid e carregando assim:
O hgrid define a guantidade de colunas necessárias para carregar todos campos. Se você definir 14 campos mas seu select tiver 15 campos, ficará os 15 da sua Sql.
Sempre use a rotina acima depois que carregar a grid. Se tiver uma sub para carregar o grid, coloque essa rotina dentro dela, depois que fechar o Rs.
Set HGrid.DataSource = RsO hgrid define a guantidade de colunas necessárias para carregar todos campos. Se você definir 14 campos mas seu select tiver 15 campos, ficará os 15 da sua Sql.
Sempre use a rotina acima depois que carregar a grid. Se tiver uma sub para carregar o grid, coloque essa rotina dentro dela, depois que fechar o Rs.
Tópico encerrado , respostas não são mais permitidas