我有一个包含6个分组框的表单,每个分组框包含180个文本框,这些文本框又分为三组:项目、描述和数量。我需要匹配包含项目的文本框集合,以查看哪些项目已重复多次,并汇总匹配项目的数量,将其与可用库存进行匹配,如果总和更大,则在msgbox中显示该项目,显示将从可用项目中短缺的项目。如何做到这一点?
发布于 2013-04-22 08:40:26
下面是我如何开始的示例;它涉及到迭代分组框中的每个控件,以查看它们是否匹配。这可能是一种更优雅的方式,但这是一个开始。在本例中,我有一个消息框显示何时存在匹配,它连接了两个值;出于您的目的,您可能希望在匹配时添加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
https://stackoverflow.com/questions/16135355
复制相似问题