Preencher um FlexGrid sem o DataSource

[Alex Passos 0]

Olá

 

Tenho que preencher um FlexGrid sem utilizar o Datasource, porque tenho que fazer algumas verificações antes de incluir os dados no flex.

 

 

Ex.: verificar qual o tipo da ocorrência se é instalação, manutenção, retirada, etc

 

Consegui fazer esse código, que esta funcionando em parte.

 

Ele faz a consulta normal, ai preparei for next pra preencher e fazer as verificações. olhem o código:

 

Flex.Clear()		Flex.Rows = 1		Flex.set_TextMatrix(0, 0, "")		Flex.set_TextMatrix(0, 1, "")		Flex.set_TextMatrix(0, 2, "Data")		Flex.set_TextMatrix(0, 3, "Ocorrência")		Flex.set_TextMatrix(0, 4, "Cód. Cliente")		Flex.set_TextMatrix(0, 5, "Nome")		Flex.set_TextMatrix(0, 6, "Cidade")		Flex.set_TextMatrix(0, 7, "Tipo")		Try			Dim varListar As String = "Aberta"			Dim i As DataRow			BDLogin()			Conexao.Open()			Dim cmd As New MySql.Data.MySqlClient.MySqlCommand("select * from ocorrencia where situacao like '" & varListar & "'", Conexao)			Dim da As New MySql.Data.MySqlClient.MySqlDataAdapter(cmd)			Dim ds As New DataSet			Dim tb As New DataTable			da.Fill(tb)			ds.Tables.Add(tb)		   			For Each i In ds.Tables(0).Rows				Flex.AddItem(vbTab & ds.Tables(0).Rows(0).Item("id") & vbTab & ds.Tables(0).Rows(0).Item("id"))							Next			Conexao.Close()		Catch ex As Exception			MsgBox("Erro na consulta", MsgBoxStyle.Critical, "Atenção")		End Try

O problema é que só esta adicionando o primeiro registro 4x (quantidade de registro que retornou da consulta)

 

Como faço pra colocar um Movenext nesse código?

 

Eu coloquei essa linha, mais não funcionou.

 

Me.BindingContext(tb).Position += 1

 

 

Obrigado

[Alex Passos 0]

Consegui galeraColoque assim no loop Dim i As DataRow Dim cmObjeto As CurrencyManager Dim indice As Integer For Each i In ds.Tables(0).Rows Flex.AddItem(vbTab & ds.Tables(0).Rows(indice).Item("id") ) cmObjeto = CType(BindingContext(ds.Tables(0)), CurrencyManager) cmObjeto.Position += 1 indice = cmObjeto.Position Next ivaleu