Vb总和检查了4行的文本框，并将它们除以检查的数量 [英] Vb sum checked textboxes in 4 rows and divided them by how many were checked

问题描述

在我的应用程序中，我有4行，每行包含1个复选框和3个文本框。我要做的是将第一个检查行的值（对于每个列分别）添加到其他已检查的行。然后计算检查了多少个盒子并将总和除以该数量（平均值）

Hi,
In my application I have 4 rows, and each row contains 1 checkbox and 3 textboxes. What I’m trying to do is to add the value of first checked row (for each column separately) with other checked rows. Then count how many boxes were checked and divided the sum by that amount (average)

Row1 --- |    cb1=__checked    |    tb01=12    |    tb02=3   |    tb03=4.25    | 
Row2 --- |    cb2=__checked    |    tb04=14    |    tb05=5   |    tb06=1.75    | 
Row3 --- |    cb3=unchecked   |    tb07=19    |    tb08=9   |    tb09=1.25    | 
Row4 --- |    cb4=__checked   |    tb10=24    |    tb11=1   |    tb12=3.50    | 
__________________________________________________________________
Button1  |       tb13=3       |    tb14=50    |    tb15=9   |    tb16=9.50    |
__________________(tb14 / tb13)__________________________________

现在我想只将第一列结果（tb14）除以复选框（tb13）所以我正在寻找的结果是;



第1栏：tb14 / tb13 = 16.67

第2栏： tb15 = 9

第3栏：tb16 = 9.50



我是新手，过去几天我一直在努力...和晚上

提前感谢您提供任何帮助。



我不知道这是否是开始的方式......

这只是第一列！

Now I want to divide only first column result (tb14) by the amount of checked boxes (tb13) so the results I’m looking for are;

1st column: tb14 / tb13 = 16.67
2nd column: tb15 = 9
3rd column: tb16 = 9.50

I’m newbie and I have been scratching my head hard for last few days …and nights
Thank you in advance for any help you can provide.

I don’t know if that’s the way to start with…
That’s just for a first column!

Dim col1 As String

Dim tb01, tb04, tb07, tb10 As Decimal

Tb01 = TextBox01.Text
Tb03 = TextBox04.Text
Tb07 = TextBox07.Text
Tb10 = TextBox10.Text

If CheckBox1.Checked Then
    col1 = col1 & tb01
End If

If CheckBox2.Checked Then
    col1 = col1 & tb04
End If

If CheckBox3.Checked Then
    col1 = col1 & tb07
End If

If CheckBox4.Checked Then
    col1 = col1 & tb10
End If

‘…and just for testing to see my results…

MessageBox.Show(col1)

他们是; （ 121424 ） 12 ， 14 和 24



我在这里库存

they are; (121424) 12, 14 and 24

I’m stock here

推荐答案

Dim col1 As String
 
Dim tb01, tb04, tb07, tb10 As Decimal
 
Tb01 = Val(TextBox01.Text)
Tb03 = Val(TextBox04.Text)
Tb07 = Val(TextBox07.Text)
Tb10 = Val(TextBox10.Text)
 
If CheckBox1.Checked Then
    col1 = col1 & tb01
End If
 
If CheckBox2.Checked Then
    col1 = col1 & tb04
End If
 
If CheckBox3.Checked Then
    col1 = col1 & tb07
End If
 
If CheckBox4.Checked Then
    col1 = col1 & tb10
End If

Dim col1row1 As String = col1 & tb01
Dim col1row2 As String = col1 & tb04
Dim col1row3 As String = col1 & tb07
Dim col1row4 As String = col1 & tb10
        
‘…and just for testing to see my results…
 
MessageBox.Show(col1row1)
MessageBox.Show(col1row2)
MessageBox.Show(col1row3)
MessageBox.Show(col1row4)

Dim col1 As Long
 
Dim tb01, tb04, tb07, tb10 As Decimal
 
Tb01 = Val(TextBox01.Text)
Tb03 = Val(TextBox04.Text)
Tb07 = Val(TextBox07.Text)
Tb10 = Val(TextBox10.Text)
 
Dim checked01 As Decimal
Dim checked04 As Decimal
Dim checked07 As Decimal
Dim checked10 As Decimal

If CheckBox1.Checked Then
    Checked01 = 1
    col1 = col1 & tb01
ElseIf CheckBox1.Checked = False Then
    Checked01 = 0
End If

If CheckBox2.Checked Then
    Checked04 = 1
    col1 = col1 & tb04
ElseIf CheckBox2.Checked = False Then
    Checked04 = 0
End If

If CheckBox3.Checked Then
    Checked07 = 1
    col1 = col1 & tb07
ElseIf CheckBox3.Checked = False Then
    Checked07 = 0
End If 

If CheckBox4.Checked Then
    Checked10 = 1
    col1 = col1 & tb10
ElseIf CheckBox4.Checked = False Then
    Checked10 = 0
End If 

Dim checkedcol1_01 As Decimal = checked01
Dim checkedcol1_04 As Decimal = checked04
Dim checkedcol1_07 As Decimal = checked07
Dim checkedcol1_10 As Decimal = checked10

Dim checkedsum As Decimal = Val(checkedcol1_01 + checkedcol1_04 + checkedcol1_07 + checkedcol1_10)


MessageBox.Show (checkedsum & " boxes were checked! ...just for my reference")


Dim col1row1 As Decimal
Dim col1row2 As Decimal
Dim col1row3 As Decimal
Dim col1row4 As Decimal

If CheckBox1.Checked Then
    col1row1 = (col1 And tb01) - col1 + tb01
ElseIf CheckBox1.Checked = False Then
    col1row1 = 0
End If

If CheckBox2.Checked Then
    col1row2 = (col1 And tb04) - col1 + tb04
ElseIf CheckBox2.Checked = False Then
    col1row2 = 0
End If

If CheckBox3.Checked Then
    col1row3 = (col1 And tb07) - col1 + tb07
ElseIf CheckBox3.Checked = False Then
    col1row3 = 0
End If

If CheckBox4.Checked Then
    col1row4 = (col1 And tb10) - col1 + tb10
ElseIf CheckBox4.Checked = False Then
    col1row4 = 0
End If

If CheckBox1.CheckState = CheckState.Unchecked And CheckBox2.CheckState = CheckState.Unchecked And CheckBox3.CheckState = CheckState.Unchecked And CheckBox4.CheckState = CheckState.Unchecked Then
    MsgBox("Please select at least one check box!", vbExclamation, "Error!")
    Exit Sub
End If
        
Dim finalResults_col1 As Decimal = Val(col1row1 + col1row2 + col1row3 + col1row4) / checkedsum


MessageBox.Show(finalResults_col1 & " is a final value for column 1")

这篇关于Vb总和检查了4行的文本框，并将它们除以检查的数量的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！