Problemas com MSFlexGrid!!!
Fala ae pessoal... Estou aki novamente postando uma das milhares de dúvidas que tenho sobre preenchimento manual de grids e lists que tenho....Dessa vez fiz um programinha eu consigo preencher as 2 primeiras linhas da grid ...na terceira linha ocorre o erro:"Subscript out of range"o que é isso?Como posso resolver....tem como eu conseguir preencher um grid copm um valor nulo?(existente na base de dados)O code é o seguinte: MSFlexGrid1.Cols = 4MSFlexGrid1.ColWidth(0) = 1000 For i = 0 To Resultado.Fields.Count - 1 MSFlexGrid1.ColAlignment(i) = vbCenter MSFlexGrid1.ColWidth(i) = 1500 MSFlexGrid1.TextMatrix(0, i) = Resultado.Fields(i).Name Next MSFlexGrid1.Rows = Resultado.RecordCount + 1 i = 0 Do While Not Resultado.EOF MSFlexGrid1.TextMatrix(i, 0) = Resultado(0) MSFlexGrid1.TextMatrix(i, 1) = Resultado(1) MSFlexGrid1.TextMatrix(i, 2) = Resultado(2) MSFlexGrid1.TextMatrix(i, 3) = Resultado(3) i = i + 1 Resultado.MoveNext LoopResultado.CloseNota:Estou utilizando a DAO 3.51...abração....
Discussão (5)
Carregando comentários...