帮助我进行SearchToolStripMenuItem_Click编码！！！谢谢 [英] Help me with the SearchToolStripMenuItem_Click coding!!! Thanks

问题描述

导入System.IO

公共类表格传教士
    Dim dtMissionaries As DataTable = New DataTable("Missionaries")
   私有子Form1_Load(作为对象发送，作为EventArgs发送)处理MyBase.Load. '将列添加到DataTable
       dtMissionaries.Columns.Add("Last"，Type.GetType("System.String"))
       dtMissionaries.Columns.Add("First"，Type.GetType("System.String"))
       dtMissionaries.Columns.Add(状态"，Type.GetType("System.String"))
       dtMissionaries.Columns.Add(年龄"，Type.GetType("System.Int32"))
       dtMissionaries.Columns.Add("YearOfService"，Type.GetType("System.Int32"))
       dtMissionaries.Columns.Add("Location"，Type.GetType("System.String"))'将文件读入数组
       Dim missionsarray()As String = File.ReadAllLines("easterndiv_missions.txt")'使用Linq使用文本文件中的数据填充数据表
       missionsarray.ToList().ForEach(Sub(x)dtMissionaries.Rows.Add(x.Split(New Char(){，" c}).ToArray))'默认按升序排序
       dtMissionaries = dtMissionaries.AsEnumerable().OrderBy(Function(row)row.Field(Of String)("Last"))).CopyToDataTable()'将DataGridView与DataTable绑定
       dgMissionaries.DataSource = dtMissionaries
   结束子
    Private Sub AllToolStripMenuItem_Click(作为对象发送，作为EventArgs发送)处理AllToolStripMenuItem.Click'将DataGridView与Datatable绑定
       dgMissionaries.DataSource = dtMissionaries
       AllToolStripMenuItem.Checked = True
   结束子
    Private Sub EuropeToolStripMenuItem_Click(作为对象发送，作为EventArgs发送)处理EuropeToolStripMenuItem.Click
       DimfilteredTable As DataTable =(从dtMissionaries.AsEnumerable()中的n开始
      其中n.Field(Of String)("Location")="Europe"
                   选择n).CopyToDataTable()'将DataGridView与已过滤的DataTable绑定
       dgMissionaries.DataSource = filteredTable'检查MenuItem
      对于每个项目，作为FilterToolStripMenuItem.DropDownItems中的ToolStripMenuItem
          如果项目是EuropeToolStripMenuItem，则
                             item.Checked =真实
          其他
                             item.Checked = False
          如果结束
      下一个
   结束子
   私有子程序MiddleEastToolStripMenuItem_Click(发送方作为对象，e作为EventArgs)处理MiddleEastToolStripMenuItem.Click
       DimfilteredTable As DataTable =(从dtMissionaries.AsEnumerable()中的n开始
      其中n.Field(Of String)("Location")="Middle East"
                   选择n).CopyToDataTable()'将DataGridView与已过滤的DataTable绑定
       dgMissionaries.DataSource = filteredTable'检查MenuItem
      对于每个项目，作为FilterToolStripMenuItem.DropDownItems中的ToolStripMenuItem
          如果项目是MiddleEastToolStripMenuItem，则
                             item.Checked =真实
          其他
                             item.Checked = False
          如果结束
      下一个
   结束子
    Private Sub SouthAmericaToolStripMenuItem_Click(发送方作为对象，e作为EventArgs)处理SouthAmericaToolStripMenuItem.Click
       DimfilteredTable As DataTable =(从dtMissionaries.AsEnumerable()中的n开始
      其中n.Field(字符串)(位置")=南美"
                   选择n).CopyToDataTable()'将DataGridView与已过滤的DataTable绑定
       dgMissionaries.DataSource = filteredTable'检查MenuItem
      对于每个项目，作为FilterToolStripMenuItem.DropDownItems中的ToolStripMenuItem
          如果项目是SouthAmericaToolStripMenuItem，则
                             item.Checked =真实
          其他
                             item.Checked = False
          如果结束
      下一个
   结束子
    Private Sub UnitedStatesToolStripMenuItem_Click(发送者作为对象，e作为EventArgs)处理UnitedStatesToolStripMenuItem.Click
       DimfilteredTable As DataTable =(从dtMissionaries.AsEnumerable()中的n开始
      其中n.Field(Of String)("Location")="United States"
                   选择n).CopyToDataTable()'将DataGridView与已过滤的DataTable绑定
       dgMissionaries.DataSource = filteredTable'检查MenuItem
      对于每个项目，作为FilterToolStripMenuItem.DropDownItems中的ToolStripMenuItem
          如果项目是UnitedStatesToolStripMenuItem，则
                             item.Checked =真实
          其他
                             item.Checked = False
          如果结束
      下一个
   结束子
   私有子DescendingToolStripMenuItem_Click(作为对象发送，作为EventArgs发送)处理DescendingToolStripMenuItem.Click'在Descending中排序
       dtMissionaries = dtMissionaries.AsEnumerable().OrderByDescending(Function(row)row.Field(Of String)("Last"))).CopyToDataTable()'将DataGridView与DataTable绑定
       dgMissionaries.DataSource = dtMissionaries'检查MenuItem
      对于每个项目，作为SortToolStripMenuItem.DropDownItems中的ToolStripMenuItem
          如果项目是DescendingToolStripMenuItem，则
                             item.Checked =真实
          其他
                             item.Checked = False
          如果结束
      下一个
   结束子
   私有Sub AscendingToolStripMenuItem_Click(发送方作为对象，e作为EventArgs)处理AscendingToolStripMenuItem.Click'升序排序
       dtMissionaries = dtMissionaries.AsEnumerable().OrderBy(Function(row)row.Field(Of String)("Last"))).CopyToDataTable()'将DataGridView与DataTable绑定
       dgMissionaries.DataSource = dtMissionaries'检查MenuItem
      对于每个项目，作为SortToolStripMenuItem.DropDownItems中的ToolStripMenuItem
          如果项目为AscendingToolStripMenuItem，则
                             item.Checked =真实
          其他
                             item.Checked = False
          如果结束
      下一个
   结束子
   私有子类ExitToolStripMenuItem_Click(作为对象发送，作为EventArgs发送)处理ExitToolStripMenuItem.Click
       Me.Close()
   结束子
   私有Sub dgMissionaries_CellContentClick(发送者为对象，e为DataGridViewCellEventArgs)处理dgMissionaries.CellContentClick
   结束子
Private Sub SearchToolStripMenuItem_Click(发送者为对象，e作为EventArgs)处理SearchToolStripMenuItem.单击
Dim dgMissionaries As String = InputBox(框中的类型")
如果InputBox(dgMissionaries)= True，那么
MessageBox.Show(搜索项不能为空")= False
MessageBox.Show(找到项目")
Console.WriteLine(ToString())
dgMissionaries = dgMissionaries.ToString
其他
MessageBox.Show(找不到项目")
如果结束
结束Sub
   私有子TextBox1_TextChanged(作为对象发送，作为EventArgs发送)
   结束子
结束类

Imports System.IO

Public Class FormMissionaries
    Dim dtMissionaries As DataTable = New DataTable("Missionaries")
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  ' Adds Columns to DataTable
        dtMissionaries.Columns.Add("Last", Type.GetType("System.String"))
        dtMissionaries.Columns.Add("First", Type.GetType("System.String"))
        dtMissionaries.Columns.Add("State", Type.GetType("System.String"))
        dtMissionaries.Columns.Add("Age", Type.GetType("System.Int32"))
        dtMissionaries.Columns.Add("YearOfService", Type.GetType("System.Int32"))
        dtMissionaries.Columns.Add("Location", Type.GetType("System.String")) ' Reads File into Array
        Dim missionsarray() As String = File.ReadAllLines("easterndiv_missions.txt") ' Using Linq populate the datatable with the data in text file
        missionsarray.ToList().ForEach(Sub(x) dtMissionaries.Rows.Add(x.Split(New Char() {","c}).ToArray)) ' Sort in Ascending by Default
        dtMissionaries = dtMissionaries.AsEnumerable().OrderBy(Function(row) row.Field(Of String)("Last")).CopyToDataTable() ' Binds DataGridView with DataTable
        dgMissionaries.DataSource = dtMissionaries
    End Sub
    Private Sub AllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllToolStripMenuItem.Click ' Binds DataGridView with Datatable
        dgMissionaries.DataSource = dtMissionaries
        AllToolStripMenuItem.Checked = True
    End Sub
    Private Sub EuropeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EuropeToolStripMenuItem.Click
        Dim filteredTable As DataTable = (From n In dtMissionaries.AsEnumerable()
        Where n.Field(Of String)("Location") = "Europe"
                    Select n).CopyToDataTable() ' Binds DataGridView with filtered DataTable
        dgMissionaries.DataSource = filteredTable ' Checks MenuItem
        For Each item As ToolStripMenuItem In FilterToolStripMenuItem.DropDownItems
            If item Is EuropeToolStripMenuItem Then
                item.Checked = True
            Else
                item.Checked = False
            End If
        Next
    End Sub
    Private Sub MiddleEastToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MiddleEastToolStripMenuItem.Click
        Dim filteredTable As DataTable = (From n In dtMissionaries.AsEnumerable()
        Where n.Field(Of String)("Location") = "Middle East"
                    Select n).CopyToDataTable() ' Binds DataGridView with filtered DataTable
        dgMissionaries.DataSource = filteredTable ' Checks MenuItem
        For Each item As ToolStripMenuItem In FilterToolStripMenuItem.DropDownItems
            If item Is MiddleEastToolStripMenuItem Then
                item.Checked = True
            Else
                item.Checked = False
            End If
        Next
    End Sub
    Private Sub SouthAmericaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SouthAmericaToolStripMenuItem.Click
        Dim filteredTable As DataTable = (From n In dtMissionaries.AsEnumerable()
        Where n.Field(Of String)("Location") = "South America"
                    Select n).CopyToDataTable() ' Binds DataGridView with filtered DataTable
        dgMissionaries.DataSource = filteredTable ' Checks MenuItem
        For Each item As ToolStripMenuItem In FilterToolStripMenuItem.DropDownItems
            If item Is SouthAmericaToolStripMenuItem Then
                item.Checked = True
            Else
                item.Checked = False
            End If
        Next
    End Sub
    Private Sub UnitedStatesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnitedStatesToolStripMenuItem.Click
        Dim filteredTable As DataTable = (From n In dtMissionaries.AsEnumerable()
        Where n.Field(Of String)("Location") = "United States"
                    Select n).CopyToDataTable() ' Binds DataGridView with filtered DataTable
        dgMissionaries.DataSource = filteredTable ' Checks MenuItem
        For Each item As ToolStripMenuItem In FilterToolStripMenuItem.DropDownItems
            If item Is UnitedStatesToolStripMenuItem Then
                item.Checked = True
            Else
                item.Checked = False
            End If
        Next
    End Sub
    Private Sub DescendingToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DescendingToolStripMenuItem.Click ' Sorts in Descending
        dtMissionaries = dtMissionaries.AsEnumerable().OrderByDescending(Function(row) row.Field(Of String)("Last")).CopyToDataTable() ' Binds DataGridView with DataTable
        dgMissionaries.DataSource = dtMissionaries ' Checks MenuItem
        For Each item As ToolStripMenuItem In SortToolStripMenuItem.DropDownItems
            If item Is DescendingToolStripMenuItem Then
                item.Checked = True
            Else
                item.Checked = False
            End If
        Next
    End Sub
    Private Sub AscendingToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AscendingToolStripMenuItem.Click ' Sorts in Ascending
        dtMissionaries = dtMissionaries.AsEnumerable().OrderBy(Function(row) row.Field(Of String)("Last")).CopyToDataTable() ' Binds DataGridView with DataTable
        dgMissionaries.DataSource = dtMissionaries ' Checks MenuItem
        For Each item As ToolStripMenuItem In SortToolStripMenuItem.DropDownItems
            If item Is AscendingToolStripMenuItem Then
                item.Checked = True
            Else
                item.Checked = False
            End If
        Next
    End Sub
    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub
    Private Sub dgMissionaries_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgMissionaries.CellContentClick
    End Sub
   Private Sub SearchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SearchToolStripMenuItem.Click
        Dim dgMissionaries As String = InputBox("Type in the Box")
        If InputBox(dgMissionaries) = True Then
            MessageBox.Show("Search Item cannot be blank") = False
            MessageBox.Show("Item Found")
            Console.WriteLine(ToString())
            dgMissionaries = dgMissionaries.ToString
        Else
            MessageBox.Show("Item Not Found")
        End If
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
    End Sub
End Class

推荐答案

这篇关于帮助我进行SearchToolStripMenuItem_Click编码！！！谢谢的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！