DBGRIDVIEW E TEXTBOX
Ôpa Galera! Boa Tarde!
Anteriormente eu tinha pedido a ajuda de vcs sobre SQL, agora, preciso colocar umas informações que estão num Combobox para um textbox. Vou explicar:
Tenho um form que existe um DateTimePicker, um combobox, um Datagridview e vários textbox, confome imagem em anexo.
Quando eu seleciono a Data e a Filial, ele mostra todas as vendas que foram efetuadas em cada loja.
Só que eu quero que apareça o total das formas de pagamento.
Bom o que eu preciso é, como colocar os valores nestes campos?
Anteriormente eu tinha pedido a ajuda de vcs sobre SQL, agora, preciso colocar umas informações que estão num Combobox para um textbox. Vou explicar:
Tenho um form que existe um DateTimePicker, um combobox, um Datagridview e vários textbox, confome imagem em anexo.
Quando eu seleciono a Data e a Filial, ele mostra todas as vendas que foram efetuadas em cada loja.
Só que eu quero que apareça o total das formas de pagamento.
Bom o que eu preciso é, como colocar os valores nestes campos?
Segue 
Citação:Bom o que eu preciso é, como colocar os valores nestes campos?
Da mesma maneira como você faz no resto do seu sistema:
Abra a conexão
Crie o comando e atribua-o a conexão
Execute o comando passando o resultado para um DataReader
Leia o DataReader que conterá todos os campos que você fez no comando acima
Passe os valores para as textbox
Simples assim
Segue
KERPLUNK
Tem como vc fazer as alterações necessárias?
Dim sql As String
DateTimePicker1.CustomFormat = [Ô]yyyyMMdd[Ô] [ô]Muda para o formato de data do campo
sql = [Ô]select DISTINCT SL1010.L1_FILIAL,SL1010.L1_VEND,SL1010.L1_CLIENTE,SL1010.L1_XCV,SL1010.L1_EMISNF,SL1010.L1_VLRLIQ from SL1010,SA1010,SA3010 where l1_filial like [ô][Ô] & ComboBox1.Text + [Ô]%[ô] AND L1_FORMPG<>[ô][ô] AND L1_EMISNF=[ô][Ô] & DateTimePicker1.Text & [Ô][ô][Ô]
DateTimePicker1.CustomFormat = [Ô]dd/MM/yyyy[Ô] [ô]Retorna para o formato Brasil
Dim row As DataGridViewRow = Me.DataGridView1.RowTemplate
row.DefaultCellStyle.BackColor = Color.PaleGoldenrod
row.Height = 25
row.MinimumHeight = 10
Dim conn As SqlConnection = New SqlConnection(connStr)
Dim comm As SqlCommand = New SqlCommand(sql, conn)
Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(comm)
Dim ds As DataSet = New DataSet()
Try
conn.Open()
dataadapter.Fill(ds, [Ô]sl1010[Ô])
conn.Close()
DataGridView1.DataSource = ds [ô]ou ds.tables(0)
DataGridView1.DataMember = [Ô]sl1010[Ô]
Catch ex As Exception
MsgBox(ex.Message)
End Try
DataGridView1.DataSource = ds [ô]ou ds.tables(0)
DataGridView1.Columns(0).HeaderText = [Ô]Filial[Ô]
DataGridView1.Columns(1).HeaderText = [Ô]Cod.Vend[Ô]
DataGridView1.Columns(2).HeaderText = [Ô]Cod.Cliente[Ô]
DataGridView1.Columns(3).HeaderText = [Ô]Numero[Ô]
DataGridView1.Columns(4).HeaderText = [Ô]Emissao[Ô]
DataGridView1.Columns(5).HeaderText = [Ô]Total[Ô]
DataGridView1.BackgroundColor = Color.AliceBlue
DataGridView1.Columns(0).Width = 30
DataGridView1.Columns(1).Width = 80
DataGridView1.Columns(2).Width = 80
DataGridView1.Columns(3).Width = 80
DataGridView1.Columns(4).Width = 80
DataGridView1.Columns(5).Width = 85
Me.DataGridView1.Columns(5).DefaultCellStyle _
.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView1.Columns(5).DefaultCellStyle.Format = [Ô]C2[Ô]
[ô] DTPicker.CustomFormat = [Ô]ddMMyyyy[Ô] [ô]Muda para o formato de data do campo
Eu agradeço!
Tem como vc fazer as alterações necessárias?
Dim sql As String
DateTimePicker1.CustomFormat = [Ô]yyyyMMdd[Ô] [ô]Muda para o formato de data do campo
sql = [Ô]select DISTINCT SL1010.L1_FILIAL,SL1010.L1_VEND,SL1010.L1_CLIENTE,SL1010.L1_XCV,SL1010.L1_EMISNF,SL1010.L1_VLRLIQ from SL1010,SA1010,SA3010 where l1_filial like [ô][Ô] & ComboBox1.Text + [Ô]%[ô] AND L1_FORMPG<>[ô][ô] AND L1_EMISNF=[ô][Ô] & DateTimePicker1.Text & [Ô][ô][Ô]
DateTimePicker1.CustomFormat = [Ô]dd/MM/yyyy[Ô] [ô]Retorna para o formato Brasil
Dim row As DataGridViewRow = Me.DataGridView1.RowTemplate
row.DefaultCellStyle.BackColor = Color.PaleGoldenrod
row.Height = 25
row.MinimumHeight = 10
Dim conn As SqlConnection = New SqlConnection(connStr)
Dim comm As SqlCommand = New SqlCommand(sql, conn)
Dim dataadapter As SqlDataAdapter = New SqlDataAdapter(comm)
Dim ds As DataSet = New DataSet()
Try
conn.Open()
dataadapter.Fill(ds, [Ô]sl1010[Ô])
conn.Close()
DataGridView1.DataSource = ds [ô]ou ds.tables(0)
DataGridView1.DataMember = [Ô]sl1010[Ô]
Catch ex As Exception
MsgBox(ex.Message)
End Try
DataGridView1.DataSource = ds [ô]ou ds.tables(0)
DataGridView1.Columns(0).HeaderText = [Ô]Filial[Ô]
DataGridView1.Columns(1).HeaderText = [Ô]Cod.Vend[Ô]
DataGridView1.Columns(2).HeaderText = [Ô]Cod.Cliente[Ô]
DataGridView1.Columns(3).HeaderText = [Ô]Numero[Ô]
DataGridView1.Columns(4).HeaderText = [Ô]Emissao[Ô]
DataGridView1.Columns(5).HeaderText = [Ô]Total[Ô]
DataGridView1.BackgroundColor = Color.AliceBlue
DataGridView1.Columns(0).Width = 30
DataGridView1.Columns(1).Width = 80
DataGridView1.Columns(2).Width = 80
DataGridView1.Columns(3).Width = 80
DataGridView1.Columns(4).Width = 80
DataGridView1.Columns(5).Width = 85
Me.DataGridView1.Columns(5).DefaultCellStyle _
.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView1.Columns(5).DefaultCellStyle.Format = [Ô]C2[Ô]
[ô] DTPicker.CustomFormat = [Ô]ddMMyyyy[Ô] [ô]Muda para o formato de data do campo
Eu agradeço!
O que calcula é este e dá o resiltado no campo total.
Private Sub Calcula()
Dim SomaColuna As Decimal
For Each coluna As DataGridViewRow In DataGridView1.Rows
If Me.DataGridView1.RowsDefaultCellStyle.BackColor <> Color.Silver Then
SomaColuna = SomaColuna + coluna.Cells(5).Value
End If
Next
[ô]Fotmata as cx. texto
TextBox1.Text = Format(Convert.ToDecimal(SomaColuna), [Ô]R$ ##,##0.00[Ô])
End Sub
Private Sub Calcula()
Dim SomaColuna As Decimal
For Each coluna As DataGridViewRow In DataGridView1.Rows
If Me.DataGridView1.RowsDefaultCellStyle.BackColor <> Color.Silver Then
SomaColuna = SomaColuna + coluna.Cells(5).Value
End If
Next
[ô]Fotmata as cx. texto
TextBox1.Text = Format(Convert.ToDecimal(SomaColuna), [Ô]R$ ##,##0.00[Ô])
End Sub
??? Alterações necessárias??
Peço a sua ajuda, pois eu não sei onde tenho que alterar para que as informações cheguem até os TXT[ô]s.
Grato!
Grato!
Tópico encerrado , respostas não são mais permitidas