EDITAR DATATABLE
colegas eu preencho um datatable como abaixo
Do While FR1.Read()
Dim dr1 As DataRow = dsC.Tables(0).NewRow()
dr1([Ô]Codigo[Ô]) = FR1([Ô]Codigo[Ô]).ToString
dr1([Ô]Descricao[Ô]) = FR1([Ô]Produto[Ô]).ToString
dr1([Ô]Valor[Ô]) = FR1([Ô]Venda[Ô]).ToString
dr1([Ô]Consumo[Ô]) = FR2([Ô]TotalQ[Ô]).ToString
dr1([Ô]TotalConsumo[Ô]) = FR2([Ô]TotalC[Ô]).ToString
dr1([Ô]Acumulado[Ô]) = 0
dr1([Ô]Porcento[Ô]) = 0
dr1([Ô]Classi[Ô]) = 0
dsC.Tables(0).Rows.Add(dr1)
Loop
Fr1.close
Não sei como fazer o abaixo
Primeira edição
Preciso selecionar este dataset por ordem do campo Consumo Desc,TotalConsumo Desc
e editar o campo Acumulado e Porcento com o resultado de outro select
Segunda Edição
Preciso selecionar este dataset por ordem do campo Codigo
e editar o campo Classi com o resultado de outro select
Do While FR1.Read()
Dim dr1 As DataRow = dsC.Tables(0).NewRow()
dr1([Ô]Codigo[Ô]) = FR1([Ô]Codigo[Ô]).ToString
dr1([Ô]Descricao[Ô]) = FR1([Ô]Produto[Ô]).ToString
dr1([Ô]Valor[Ô]) = FR1([Ô]Venda[Ô]).ToString
dr1([Ô]Consumo[Ô]) = FR2([Ô]TotalQ[Ô]).ToString
dr1([Ô]TotalConsumo[Ô]) = FR2([Ô]TotalC[Ô]).ToString
dr1([Ô]Acumulado[Ô]) = 0
dr1([Ô]Porcento[Ô]) = 0
dr1([Ô]Classi[Ô]) = 0
dsC.Tables(0).Rows.Add(dr1)
Loop
Fr1.close
Não sei como fazer o abaixo
Primeira edição
Preciso selecionar este dataset por ordem do campo Consumo Desc,TotalConsumo Desc
e editar o campo Acumulado e Porcento com o resultado de outro select
Segunda Edição
Preciso selecionar este dataset por ordem do campo Codigo
e editar o campo Classi com o resultado de outro select
Para ordenar é só utilizar um DATAVIEW vinculado ao DATASET.
http://www.macoratti.net/vbn_dtv3.htm
http://www.macoratti.net/vbn_dtv3.htm
Tópico encerrado , respostas não são mais permitidas