0

それぞれ 180 個のテキスト ボックスを含む 6 つのグループ ボックスを含むフォームがあります。これらのグループ ボックスは、アイテム、説明、数量の 3 つのセットに分割されます。アイテムを含むテキストボックスのセットを照合して、どのアイテムが複数回繰り返されたかを確認し、一致したアイテムの数量を合計して、利用可能な在庫と照合し、合計が大きい場合はこれを表示する必要がありますmsgbox で、利用可能なアイテムから不足するアイテムを示します。これはどのように行うことができますか?

4

1 に答える 1

0

これは、私がどのように始めるかのサンプルです。グループボックス内の各コントロールを反復して、それらが一致するかどうかを確認する必要があります。おそらくよりエレガントな方法ですが、それが始まりです。この例では、一致がある場合にメッセージ ボックスを表示し、2 つの値を連結します。あなたの目的のために、一致時に sum 関数と他のコードを追加したいと思うでしょう:

    Dim myControl As Control

    For Each myControl In Me.GroupBox1.Controls

        If (TypeOf myControl Is TextBox) And myControl.Text <> "" Then

            For Each Control In Me.GroupBox2.Controls

                If (TypeOf Control Is TextBox) And Control.Text <> "" Then

                    If Control.Text = myControl.Text Then

                        MessageBox.Show(Control.Text & myControl.Text)

                    End If


                End If



            Next



        End If

    Next
于 2013-04-22T00:40:26.237 に答える