cerri

Pessoal não sei o que esta acontecendo nesse caso, parece que ta pulando e ai não esta apagando as linhas que tem "0" na coluna(2), fazendo um debug eu notei que ele entra em todos os "0" no if mas parece que ele só apagar 1 e no proximo ele não apaga. O que pode ser? Dim zero As String Dim valorcel As String zero = "0" For Each Col As DataGridViewRow In DGcaptacao.Rows valorcel = CStr(Col.Cells(2).Value) If valorcel = zero Then DGcaptacao.Rows.Remove(Col) End If Next DGcaptacao.Refresh()

Pessoal não sei o que esta acontecendo nesse caso, parece que ta pulando e ai não esta apagando as linhas que tem "0" na coluna(2), fazendo um debug eu notei que ele entra em todos os "0" no if mas parece que ele só apagar 1 e no proximo ele não apaga. O que pode ser? Dim zero As String Dim valorcel As String zero = "0" For Each Col As DataGridViewRow In DGcaptacao.Rows valorcel = CStr(Col.Cells(2).Value) If valorcel = zero Then DGcaptacao.Rows.Remove(Col) End If Next DGcaptacao.Refresh()

Esse private já esta em uso, mas preciso colocar mais um campo, hoje ela ve se o campo status é 2 ou 3, preciso colocar que seja 2,3 and SIM(campo FINAL), mas nãop estou sabendo mudar essa private. alguém pode me ajudar? Private Sub DGconsulta_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DGconsulta.CellFormatting If Me.DGconsulta.Columns(e.ColumnIndex).Name = "STATUSDataGridViewTextBoxColumn" Then If e IsNot Nothing Then If e.Value IsNot Nothing Then Try If e.Value = "2" Then 'And DGconsulta.Columns("FINALDataGridViewTextBoxColumn").ToString = "NÃO " Then DGconsulta.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Orange End If If e.Value = "3" Then 'And DGconsulta.Columns("FINALDataGridViewTextBoxColumn").ToString = "NÃO " Then DGconsulta.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red End If Catch ex As FormatException End Try End If End If End If End Sub

Galera alguém sabe porque acontece isso? No debug o valor do .item aparece certinho(4375,8) mas quando passa pra variavel ele vai como 43758,00, ele recebe esse 0 a mais. :wacko: buscadebito = buscadebito(43758,00) + DGDEBCRED.Item(1, idg).Value(4375,8) porque na hora de receber a variavel faz isso?

OleDbclientes.SelectCommand.CommandText = "SELECT nm_cliente,cd_assessor,cd_cpfcgc,cd_assessor FROM TSCCLIGER" Dim DSnm_cliente As New DataSet OleDbclientes.Fill(DSnm_cliente) For inomecli = 0 To (DGvalorcliente.RowCount - 2) icdass = DGvalorcliente.Item(3, inomecli).Value icpf = DGvalorcliente.Item(4, inomecli).Value Dim DVnm_cliente As DataView = DSnm_cliente.Tables("tsccliger").DefaultView DVnm_cliente.RowFilter = "cd_cpfcgc= '" & icpf & "'" 'String.Format("nm_assessor like '" & checknome & "' ") DVnm_cliente.RowStateFilter = DataViewRowState.CurrentRows DGvalorcliente.Item(5, inomecli).Value = DVnm_cliente.Item(0).Item(0) Next

Ficou assim For inomecli = 0 To (DGvalorcliente.RowCount - 1) icdass = DGvalorcliente.Item(3, inomecli).Value icpf = DGvalorcliente.Item(4, inomecli).Value OleDbclientes.SelectCommand.CommandText = "SELECT nm_cliente,cd_assessor,cd_cpfcgc FROM TSCCLIGER WHERE CD_ASSESSOR = '" & icdass & "' and CD_CPFCGC='" & icpf & "' " Dim DSnm_cliente As New DataSet OleDbclientes.Fill(DSnm_cliente) Dim DVnm_cliente As DataView = DSnm_cliente.Tables("tsccliger").DefaultView DVnm_cliente.RowFilter = "cd_cpfcgc= '" & icpf & "'" 'String.Format("nm_assessor like '" & checknome & "' ") DVnm_cliente.RowStateFilter = DataViewRowState.CurrentRows DGvalorcliente.Item(5, inomecli).Value = DVnm_cliente.Item(0).Item(0) Next mas ai pintou outro problema, esse grid tem 2326 registros, tipo assim tem 24 registros com um cpf, e depois 180 com outro e assim vai indo,agora esta dando esse erro Index 0 is either negative or above rows count. percebi que esse erro da logo assim que a variavel recebe um cpf diferente, com certeza deve ser erro da logica mas não estou sabendo fazer, alguém pode me ajudar?

Pessoal preciso popular um grid que já esta com varias colunas preenchidas, e só falta colocar o nome do cliente que eu estou filtrando de um dataview estou fazendo assim, mas na linha fica dando erro que não foi possivel converte strig para integer, mas o campo é string e estou tentando colocar num datagrid, como esta dando essa mensagem? For inomecli = 0 To (DGvalorcliente.RowCount - 1) icdass = DGvalorcliente.Item(3, inomecli).Value icpf = DGvalorcliente.Item(4, inomecli).Value OleDbclientes.SelectCommand.CommandText = "SELECT nm_cliente,cd_assessor,cd_cpfcgc FROM TSCCLIGER WHERE CD_ASSESSOR = '" & icdass & "' and CD_CPFCGC='" & icpf & "' " Dim DSnm_cliente As New DataSet OleDbclientes.Fill(DSnm_cliente) DVnm_cliente.RowFilter = "cd_cpfcgc like '%" & icpf & "%'" 'String.Format("nm_assessor like '" & checknome & "' ") DVnm_cliente.RowStateFilter = DataViewRowState.CurrentRows DGvalorcliente.Item(5, inomecli).Value = DVnm_cliente.Item("nm_cliente").ToString Next

Como faço para passar um valor de um dataview para uma variavel? iteste = DVassessorSP.Item????? bs

Descobri o erro, eu tinha setado no componente bindigsource o selectvaleu, foi só tirar que tudo ficou normal.

Ele não fica desabilitado porque a propriedade enable esta como true,parece que esta preso ao combobox(cblider) que uso pra filtrar o bindingsource(BSassessorSP. Quando clico com o mouse ele nem fica marcado deve ser algum problema nesse filtro

Pessoal eu consegui popular e filtrar um checkedlistbox1 assim, mas ele não esta permitindo que eu marque o itens, parece que esta bloqueado, alguém pode me ajudar? Private Sub filtrarbindingsource() BSassessorSP.Sort = "NM_ASSESSOR ASC" CheckedListBox1.DataSource = BSassessorSP 'DataSetcadassessor2.tblAssessoresSP CheckedListBox1.DisplayMember = "NM_ASSESSOR" CheckedListBox1.ValueMember = "NM_ASSESSOR" BSassessorSP.Filter = "LIDER_NOME like '%" & Cblider.Text & "%'"

Sim, gostaria de usar ela dentro do formulario ou algo parecido.

Tem como usar a planilha no form no VB10?

E tem como o companheiro abaixo disse? De ter um componente com as funções da planilha pra exibir no formulario?

Obrigado pela dica