匹配並顯示文本框的內容

Question

我有一個包含6個組框的表單，每個組框包含180個文本框，這些文本框又分爲三組：項目，描述和數量。我需要匹配包含項目的文本框集合，查看哪些項目已重複多次，並總結匹配項目的數量，將其與可用庫存進行匹配，如果總和較大，則顯示此項在一個msgbox中，顯示這個項目與可用項目不符。如何才能做到這一點？

Answer 1

這是我如何開始的樣本;它會涉及遍歷組合框中的每個控件，以查看它們是否匹配。可能是更優雅的方式，但它是一個開始。在這個例子中，當有一個匹配項時，我有一個messagebox顯示，並且它連接了這兩個值;爲了您的目的，您希望在匹配時添加您的總和功能和其他代碼：

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