0

我有一个包含 6 个分组框的表单，每个分组框包含 180 个文本框，这些文本框又分为三组：项目、描述和数量。我需要匹配包含项目的文本框集，查看哪些项目已重复多次，并总结匹配项目的数量，将其与可用库存进行匹配，如果总和更大，则显示此在 msgbox 中，显示将不符合可用项目的项目。如何才能做到这一点？

4

1 回答 1

0

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