Question

我有三个与链接中的表单相似的表单。我想为每个表单添加一个Total文本框。总计将添加将在montant文本框中输入的值。因此，总数将为该用户将拥有的所有条目获取该特定值的特定值并添加它们。我怎么能这样做???? 谢谢 http://i1006.photobucket.com/albums/af189/diaboloent/OneForm.jpg

Answer 1

将所有文本框放在用户将在公共容器（如组框或面板控件）中输入值的位置。然后使用这样的代码来总计值：

Dim sum As Integer = 0
For Each box As TextBox In MyContainer.Controls.OfType(Of TextBox)()
    sum += Integer.Parse(box.Text)
Next box
Total.Text = sum.ToString()

你甚至可以将其归结为单行：

Total.Text = MyContainer.Controls.OfType(Of TextBox)().Select(Function(s) Integer.Parse(s.Text)).Sum()

VB 2008或VB 2010数据集帮助

1 个答案: