Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
o erro é disparado na linha 7 do evento do botão localizar
Public Class frm_filtrar_ordem_de_servico
Private Tabela_equipamentos As [string] = "clientes"
Private Campo_id As [string] = "Id"
Private Campo_N_de_Serie As [string] = "NOME"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As New MySqlConnection("server = localhost;userid=root;password=jcbest;database=wrcopiadoras1")
Dim strsql As String = "SELECT clientes.Id,clientes.NOME,clientes.endereco,clientes.cidade,clientes.Telefone,clientes.Contrato, equipamentos.* FROM equipamentos Right join clientes on equipamentos.Identificacao_Cliente = clientes.Id"
Dim da As New MySqlDataAdapter(strsql, conn)
Dim dt As New DataTable(Tabela_equipamentos)
da.Fill(dt)
da.FillSchema(dt, SchemaType.Source)
dgvresult.DataSource = dt.DefaultView
cbocliente.DataSource = dt
cbocliente.ValueMember = Campo_N_de_Serie
cbocliente.DisplayMember = Campo_N_de_Serie
End Sub
Private Sub btnlocalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlocalizar.Click
Dim dt As DataTable = CType(dgvresult.DataSource, DataView).Table
Dim filtro As [string] = Campo_N_de_Serie & "='" & cbocliente.Text & "'"
Dim drc As DataRow() = dt.Select(filtro)
Dim contador As Integer = 0
Dim linha As DataRow
For Each linha In drc
[b]Dim RegistroLocalizado As DataRow = dt.Rows.Find(linha(Campo_id))[/b][u][/u]
If Not (RegistroLocalizado Is Nothing) Then
contador = contador + 1
End If
Next linha
Dim dv As New DataView(dt)
dv.RowFilter = filtro
dgvresult.DataSource = dv
End SubCarregando comentários...