Ir para conteúdo
Fórum Script Brasil

cerri

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    16

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por cerri

  1. Remover linha do datagridview

    em .NET

    Postado

    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()

  2. remover linhas do datagridview

    em Visual Basic

    Postado

    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()

  3. Colocar mais um campo no filtro

    em Visual Basic

    Postado

    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

  4. Duvida na variavel Double

    em .NET

    Postado

    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?

  5. Pegar dados de um dataview

    em Visual Basic

    Postado

    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?

  6. Pegar dados de um dataview

    em Visual Basic

    Postado

    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?

  7. Pegar dados de um dataview

    em Visual Basic

    Postado

    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

  11. Checkedlistbox travado

    em Visual Basic

    Postado

    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 & "%'"

×
×
  • Criar Novo...