For Each problemas com impressão na tela

[Spurio 0]

Bom dia,

 

Estou com o seguinte problema, tenho uma tabela e nela tenho o campo tipoServico gostaria de fazer um count neste campo e mostrar o nome dele tbm..

 

Exemplo

 

tipoServico

TRÂNSITO

COLETA DE LIXO

TRÂNSITO

 

Eu queria mostrar para o usuario desse forma:

 

TRÂNSITO 2

COLETA DE LIXO 1

 

Eu consegui isso, ele olha tdos os campos da minha tabela, faz o count, isso ta OK, só que eu não consigo mostrar isso pro usuario, tentei colocar em um GridView e não deu certo, quando do um "MsgBox" ele mostra tudo certinho do jeito que eu qro...

 

Não sei se é o For Each que eu fiz... ja tentei carregar o grid em varios lugares do código mais não deu certo.

 

Segue abaixo o código para melhor intendimento:

 

' ''..::Busca variaveis publicas da pagina anteriror
		lblData1.Text = Session("Dt1")
		lblData2.Text = Session("Dt2")
		'lblData1.Text = "17/11/2008"
		'lblData2.Text = "19/11/2008"

		Dim conexao As SqlConnection
		conexao = New SqlConnection("Data Source=******; User ID=*****; Password=****; Initial Catalog=*******;")
		conexao.Open()


		Dim sqlDA As New SqlDataAdapter("select distinct tipoServico from viewRelatorios", conexao)

		Dim dataSet As New DataSet()
		Dim dr As DataRow

		sqlDA.Fill(dataSet)

		For Each dr In dataSet.Tables(0).Rows

			Dim sql As New SqlDataAdapter("select count(tipoServico) as total from viewRelatorios where tipoServico = '" & dr(0).ToString & "' and convert(varchar(10),data,103) >= '" & lblData1.Text & "' and convert(varchar(10),data,103) <= '" & lblData2.Text & "'", conexao)

			Dim dataSetNovo As New DataSet()
			Dim dataRow As DataRow


			sql.Fill(dataSetNovo)


			For Each dataRow In dataSetNovo.Tables(0).Rows
				'Console.WriteLine(dataRow(0).ToString)
				'MsgBox(dataRow(0).ToString)
				'dgServico.DataSource = dataSetNovo
				'dgServico.DataBind()

				'MsgBox(dr(0).ToString & " " & dataRow(0).ToString)
				Response.Write(" " & dr(0).ToString & " " & dataRow(0).ToString & " ")


			Next


		Next

		dgServico.DataSource = dataSet
		dgServico.DataBind()
	   
	End Sub

 

Alguem para me ajudar? ficarei muito grato!!

 

Abraços a todos que colaborarem!!!

[quintelab 91]

Cara seu código esta muito confuso, esta executando um sql dentro de um foreach. Não consegui entender.

 

Abraços...