通过数组搜索功能

Question

我非常困扰这一个人，需要一些帮助。

我有一个多个数组名称，年龄，身高，体重在另一个表单上创建，其中所有数据都输入到数组中但我需要转到另一个表单，其中有文本框我输入其中一个输入并单击搜索，然后在文本框或列表框中显示与该名称搜索索引相对应的年龄，身高，体重。

我的主要问题是尝试将数组数据转换为另一种形式，而另一个问题是试图让计算机在数组中搜索知道它是什么索引并向其他数组的索引显示相应的数据。已经坚持了很长时间，现在可以请一些关于如何做到这一点的建议，我将非常感谢，谢谢。

这是我到目前为止的代码/数组

Imports System.IO

Public Class DataEntry
    Dim Surname(200)
    Dim Firstname(200)
    Dim Age(200) As String
    Dim HeightA(200) As String
    Dim Weight(200)
    Dim index As Integer
    Public filepath As String = "c:\Patients\All Patients File"

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnCreate.Click
        Dim di As DirectoryInfo = New DirectoryInfo("c:\Patients")
        If di.Exists Then
            MsgBox("File is Already There")
            txtSur.Enabled = True
            txtWeight.Enabled = True
            txtHeight.Enabled = True
            txtFirst.Enabled = True
            txtAge.Enabled = True
            btnAddPatient.Enabled = True
            btnClear.Enabled = True
            btnFileShow.Enabled = True
            btnEdit.Enabled = True
            btnSave.Enabled = True
            txtReader.Enabled = True
        Else
            di.Create()
            MsgBox("File is Already There")
            txtSur.Enabled = True
            txtWeight.Enabled = True
            txtHeight.Enabled = True
            txtFirst.Enabled = True
            txtAge.Enabled = True
            btnAddPatient.Enabled = True
            btnClear.Enabled = True
            btnFileShow.Enabled = True
            btnEdit.Enabled = True
            btnSave.Enabled = True
            txtReader.Enabled = True
        End If
    End Sub

    Private Sub btnAddPatient_Click(sender As Object, e As EventArgs) Handles btnAddPatient.Click
        index = index + 1
        lblNum.Text = index
        Surname(index) = txtSur.Text
        Firstname(index) = txtFirst.Text
        Age(index) = txtAge.Text
        Weight(index) = txtWeight.Text
        HeightA(index) = txtHeight.Text
        Dim textAppend As String
          textAppend = txtSur.Text & ", " + txtFirst.Text & ", " + txtAge.Text & ",  " + txtHeight.Text & "mm" & ",  " + txtWeight.Text & "kg" & "."
        Try
            File.AppendAllText(filepath, textAppend)
            MsgBox("Patient Added Successfully")
        Catch ex As Exception
            MsgBox("Error Adding Patient")
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnFileShow.Click
        Dim objreader As New System.IO.StreamReader("c:\Patients\All Patients File")
        txtReader.Text = objreader.ReadToEnd
        objreader.Close()
    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        Dim result As Integer = MessageBox.Show("Are You Sure You Want To Clear", "ALERT", MessageBoxButtons.YesNoCancel)
        If result = DialogResult.Cancel Then
            MessageBox.Show("Cancel pressed")
        ElseIf result = DialogResult.No Then
            MessageBox.Show("Not Clearing")
        ElseIf result = DialogResult.Yes Then
            MessageBox.Show("Clearing")
        End If
        Dim objwriter As New System.IO.StreamWriter("c:\Patients\All Patients File")
        'adding text from textbox to text fil
        objwriter.Write("")
        objwriter.Close()
        Array.Clear(Surname, 0, Surname.Length)
        Array.Clear(Firstname, 0, Firstname.Length)
        Array.Clear(Age, 0, Age.Length)
        Array.Clear(Weight, 0, Weight.Length)
        Array.Clear(HeightA, 0, HeightA.Length)
        index = 0
        txtAge.Text = ""
        txtFirst.Text = ""
        txtHeight.Text = ""
        txtSur.Text = ""
        txtWeight.Text = ""
        txtReader.Text = ""
    End Sub

    Private Sub DataEntry_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtSur.Enabled = False
        txtWeight.Enabled = False
        txtHeight.Enabled = False
        txtFirst.Enabled = False
        txtAge.Enabled = False
        btnAddPatient.Enabled = False
        btnClear.Enabled = False
        btnFileShow.Enabled = False
        btnEdit.Enabled = False
        btnSave.Enabled = False
        txtReader.Enabled = False
    End Sub

    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
        If txtReader.Text = "" Then
            MsgBox("No Infomation To Edit")
        Else
            txtReader.Focus()
        End If
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        If txtReader.Text = "" Then
             MsgBox("Nothing To Save")
        Else
            Dim objwriter As New System.IO.StreamWriter("c:\Patients\All Patients File")
            'adding text from textbox to text file
            objwriter.Write(txtReader.Text)
            objwriter.Close()
            MsgBox("Saved Edit")
        End If
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Form1.Show()
        Me.Hide()
    End Sub
End Class

这是我必须将数组转到搜索

的形式

Public Class SearchPatient
    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
End Sub