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
|