主题：[求助]窗口数据导入的时候平均分配

此主题相关图片如下：1.jpg

Dim yrs() As String = {"A", "B", "C", "D"}
Dim count As Integer = 0
For Each yr As String In yrs
    If e.Form.Controls(yr).checked Then count +=1
Next
For Each xz As  Row In Tables("窗口1_Table1").GetCheckedRows
    Dim sz1() As String = {"检测位置","接头形式","首次检测_检测长度","首次检测_返修长度"}
    Dim sz2() As String = {"检测位置","接头形式","首次检测_检测长度","首次检测_返修长度"}
    Dim sj As WinForm.DateTimePicker = e.Form.Controls("首次检测日期")
    If sj.Value Is Nothing Then
        MessageBox.Show("没有输入日期","提示",MessageBoxButtons.OK)
        Return
    End If
    Dim xzh As Row = Tables("表A.表B").AddNew
    xzh("首次检测_日期") = sj.value
    For i As Integer = 0 To sz1.Length - 1
        xzh(sz2(i)) = xz(sz1(i))
    Next
    For Each yr As String In yrs
        If e.Form.Controls(yr).checked Then
            xzh("检测人员_" & yr) = xz("首次检测_检测长度") / count
        End If
    Next
Next

谢谢，请问下这个    If e.Form.Controls(yr).checked Then count +=1 是什么意思，为什么不是+1而是+=1呢

是简写，等同于 count = count + 1

谢谢

我要判断那几个复选框选中状态为数量为0，请问应该怎么写，这儿卡住了

Dim yrs() As String = {"A", "B", "C", "D"}
Dim count As Integer = 0
For Each yr As String In yrs
    If e.Form.Controls(yr).checked Then count +=1
Next

If count = 0 Then

 

End If

谢谢