Limpar o que nao esta na tabela

[__marcosmaciel__ 0]

Dim dr As SqlDataReader = Nothing
Using con As SqlConnection = CONCETA_DB()
Try
con.Open()
Dim strCmd As String = "SELECT USUARIOS.LOGON FROM CONFIGURACOES_EMPRESA "
strCmd += "INNER JOIN USUARIOS ON CONFIGURACOES_EMPRESA.ID_EMPRESA = USUARIOS.ID_USUARIO"
strCmd += " WHERE CONFIGURACOES_EMPRESA.RazaoSocial ='" & cbxEmpresa.Text & "'"
Dim cmd As SqlCommand = New SqlCommand(strCmd, con)
dr = cmd.ExecuteReader(CommandBehavior.SingleResult)
Dim dt As New DataTable

If dr.HasRows Then
If dt.Rows.Count >= 1 Then
For i = 0 To dt.Rows.Count - 1
cbxUsuario.Items.Add(dt.Rows(i).Item("LOGON"))
Refresh()
Next

Else
MsgBox("Nenhum usuario encontrado")

End If
End If

Catch
MsgBox("Erro com a sua base de dados, detalhes.: " & vbCrLf & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Informe de ao suportes", MsgBoxStyle.Information)
Finally
con.Close()
End Try
End Using

=====================================================================================================

 

 

 

 

como eu limpo o que nao esta com outro ID de empresa

[KhaosDoctor 242]

Não entendi

[__marcosmaciel__ 0]

tenho 2 tabelas relacionadas.. ai eu usei o inner para puxar os usuarios de determinada empresa so que a medida que eu vou selecionando a empresa e selecionando o usuario ele vai adicionando o que ele puxou queria saber se tem um jeito de limpar os que nao forem da determinada empresa

[KhaosDoctor 242]

A medida que você vai selecionando ele vai adicionando o que ele puxou? Como assim, isso está bem confuso, poste um exemplo