如何按名称过滤 [英] how can filter by name

问题描述

如何过滤名称或字符，例如，

代理已经有效

袜子已经在工作

我想输入代理自动显示表

解决方案

 公共 类 Form12 
 公共 oCn  As  新 System.Data.SqlClient.SqlConnection（ 数据源=（本地）;初始目录= MyDatabase; Uid = sa）
  Dim  dv 作为 新 DataView 
 
 私有  Sub  Form12_Load（ ByVal  sender  As  System。对象， ByVal  e  As  System.EventArgs）句柄  MyBase  .Load 
 fill_grid（）
 结束  Sub  
 
  Sub  fill_grid（）
 如果 oCn.State = ConnectionState.Closed 那么 
 oCn.Open（）
 结束 如果 
 我 .DataGridView1.Rows.Clear （）
  Dim  cmd 作为 新 SqlClient.SqlCommand（  SELECT * from mst_scheme其中scheme_name类似'& 我 .TextBox1.Text&  ％'，oCn）
  Dim  da  As  新 SqlClient.SqlDataAdapter（cmd）
  Dim  ds  As  新 DataSet（  bpl）
  Dim  i  As  整数 =  0  
 
 da .Fill（ds，  bpl）
 
  If  ds.Tables（ 0 ）。Rows.Count>  0  然后 
  （ i<> ds.Tables（ 0 ）。Rows.Count）
 我。 DataGridView1.Rows.Add（）
  Me  .DataGridView1.Item（ 0 ，i）。值= i +  1  
  Me  .DataGridView1.Item（ 1 ，i）.Value = ds.Tables（ 0 ）。行（i）.Item（  scheme_name）。ToString 
  Me  .DataGridView1.Item（  2 ，i）.Value = ds.Tables（ 0 ）。行（i）.Item（< span class =code-string>  scheme_id）。ToString 
 i = i +  1  
 结束 而 
 结束 如果 
 
 结束  Sub  
 
 私人  Sub  TextBox1_TextChanged（ ByVal  sender  As  对象， ByVal  e  As  System.EventArgs）句柄 TextBox1.TextChanged 
 fill_grid（）
 结束  Sub  
 结束 类 

How can I do filtering name or a character, for example,
Proxy that works already
Socks is already working
I want to type Proxy automatically displays Table

解决方案

Public Class Form12
    Public oCn As New System.Data.SqlClient.SqlConnection("Data Source=(local);Initial Catalog=MyDatabase;Uid=sa")
    Dim dv As New DataView

    Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fill_grid()
    End Sub

    Sub fill_grid()
        If oCn.State = ConnectionState.Closed Then
            oCn.Open()
        End If
        Me.DataGridView1.Rows.Clear()
        Dim cmd As New SqlClient.SqlCommand("SELECT * from mst_scheme where scheme_name like '" & Me.TextBox1.Text & "%'", oCn)
        Dim da As New SqlClient.SqlDataAdapter(cmd)
        Dim ds As New DataSet("bpl")
        Dim i As Integer = 0

        da.Fill(ds, "bpl")

        If ds.Tables(0).Rows.Count > 0 Then
            While (i <> ds.Tables(0).Rows.Count)
                Me.DataGridView1.Rows.Add()
                Me.DataGridView1.Item(0, i).Value = i + 1
                Me.DataGridView1.Item(1, i).Value = ds.Tables(0).Rows(i).Item("scheme_name").ToString
                Me.DataGridView1.Item(2, i).Value = ds.Tables(0).Rows(i).Item("scheme_id").ToString
                i = i + 1
            End While
        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        fill_grid()
    End Sub
End Class

这篇关于如何按名称过滤的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！