时间戳

首页 > 解决方案 > 当文本框中的文本等于某个单词时，我需要在组合框中为该文本保存值

vb.net - 当文本框中的文本等于某个单词时，我需要在组合框中为该文本保存值

问题描述

我在调试文件夹的文本文件中有订单，当我在文本框中键入订单名称时，它显示订单是一个列表框，下面有一个组合框，我可以在其中更改膳食准备的状态（正在准备好，准备好交付等）。如果我回到该表格并在文本框中输入相同的订单名称，我需要之前的准备状态已经在文本框中。谢谢你的帮助！

Public Class frmOrderStatus

    Private Sub btnStatus_Click(sender As Object, e As EventArgs) Handles btnStatus.Click
        Dim sr As IO.StreamReader = IO.File.OpenText(strTxtOrderNum & ".txt")
        Do Until sr.EndOfStream
            lstOrder.Items.Add(sr.ReadLine)
        Loop


    End Sub

    Private Sub OrderStatus_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lstOrder.Items.Clear()
        btnStatus.Enabled = False
        ChangeStatus.Enabled = False



    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnValidate.Click
        strTxtOrderNum = txtOrderNum2.Text
        btnStatus.Enabled = True
        ChangeStatus.Enabled = True

    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        strSaveStatus = ChangeStatus.SelectedIndex


    End Sub

    Private Sub ChangeStatus_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ChangeStatus.SelectedIndexChanged

    End Sub
End Class

标签： vb.net

解决方案

它识别文件；它只是告诉你它正在使用中。Stream 必须关闭和处置。我看不到StreamReader甚至被关闭，更不用说处置了。即使出现错误，`Using...End Using 块也会关闭并处理对象。

我只是使用了一个碰巧必须测试的文本文件。

Private strTxtOrderNum As String = "host"

Private Sub ReadFile()
    Using sr As IO.StreamReader = IO.File.OpenText(strTxtOrderNum & ".txt")
        Do Until sr.EndOfStream
            ListBox1.Items.Add(sr.ReadLine)
        Loop
    End Using
End Sub

Private Sub WriteFile()
    Dim strSelectedItem = ComboBox1.Text
    Using swVar As IO.StreamWriter = IO.File.AppendText(strTxtOrderNum & ".txt")
        swVar.WriteLine(strSelectedItem)
    End Using
End Sub

推荐阅读