使用组合框的Vb.Net Filter Datagridview

Imports System.Data.SqlClient

Public Class Form1
    Dim connectionString As String = "Data Source=YourDataSource;Initial Catalog=YourDatabase;Integrated Security=True"
    Dim connection As SqlConnection
    Dim adapter As SqlDataAdapter
    Dim dataTable As DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 初始化Datagridview控件并绑定数据源
        connection = New SqlConnection(connectionString)
        adapter = New SqlDataAdapter("SELECT * FROM YourTable", connection)
        dataTable = New DataTable()
        adapter.Fill(dataTable)
        DataGridView1.DataSource = dataTable

        ' 添加组合框选项
        ComboBox1.Items.Add("Option 1")
        ComboBox1.Items.Add("Option 2")
        ComboBox1.Items.Add("Option 3")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        ' 根据组合框选项筛选数据
        Dim filter As String = ""
        Select Case ComboBox1.SelectedIndex
            Case 0
                filter = "Column1 = 'Value 1'"
            Case 1
                filter = "Column2 = 'Value 2'"
            Case 2
                filter = "Column3 = 'Value 3'"
        End Select

        dataTable.DefaultView.RowFilter = filter
    End Sub
End Class