[求助]窗口数据导入的时候平均分配 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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