Jump to content
Fórum Script Brasil

cerri

Membros
  • Content Count

    16
  • Joined

  • Last visited

Community Reputation

0 Neutro

About cerri

  1. 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. 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. 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
  4. 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. 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 & "' ")
  6. 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=
  7. 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_
  8. Como faço para passar um valor de um dataview para uma variavel? iteste = DVassessorSP.Item????? bs
  9. Descobri o erro, eu tinha setado no componente bindigsource o selectvaleu, foi só tirar que tudo ficou normal.
  10. 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
  11. 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 & "%'"
  12. Sim, gostaria de usar ela dentro do formulario ou algo parecido.
  13. Tem como usar a planilha no form no VB10?
  14. cerri

    Usar o excel no VB

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

    Usar o excel no VB

    Obrigado pela dica
×
×
  • Create New...