Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim tbl As New DataTable() With {.CaseSensitive = True} tbl.Columns.Add("ID").AutoIncrement = True tbl.Columns.Add("名前").AllowDBNull = False tbl.PrimaryKey = New DataColumn() {tbl.Columns("ID")} For Each nm In New String() {"やまだたろう", "やまた゛はなたろう"} Dim r = tbl.NewRow() r.SetField(Of String)("名前", nm) tbl.Rows.Add(r) Next tbl.AcceptChanges() If RadioButton1.Checked Then ' "やまだたろう" と "やまた゛はなたろう" tbl.DefaultView.RowFilter = Nothing ElseIf RadioButton2.Checked Then ' "やまだたろう" のみ tbl.DefaultView.RowFilter = "名前 LIKE '%やまだ%'" ' U+3060「だ」 ElseIf RadioButton3.Checked Then ' "やまた゛はなたろう" のみ tbl.DefaultView.RowFilter = "名前 LIKE '%やまだ%'" ' U+305F U+3099「だ」 ElseIf RadioButton4.Checked Then ' "やまた゛はなたろう" のみ tbl.DefaultView.RowFilter = "名前 LIKE '%やまた゛%'" ' U+305F U+309B「た゛」 ElseIf RadioButton5.Checked Then ' "やまた゛はなたろう" のみ tbl.DefaultView.RowFilter = "名前 LIKE '%やまだ%'" ' U+305F U+FF9E「だ」 End If DataGridView1.DataSource = tbl End Sub