Question

我有一个包含6个分组的表单，每个分组包含180个文本框，这些文本框又分为三组：项目，描述和数量。我需要匹配包含项目的文本框集，以查看哪些项目已被重复多次，并总结匹配项目的数量，将其与可用库存相匹配，如果总和更大，则显示此项目在msgbox中，显示与可用项目不匹配的项目。怎么办呢？

Answer 1

以下是我如何开始的示例;它将涉及迭代组框中的每个控件以查看它们是否匹配。可能是一种更优雅的方式，但它是一个开始。在这个例子中，当有匹配时我有一个消息框显示它连接这两个值;为了您的目的，您可能希望在匹配时添加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

匹配和显示文本框的内容

1 个答案: