- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口数据导入的时候平均分配 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96598)
-- 发布时间：2017/2/23 22:01:00
-- [求助]窗口数据导入的时候平均分配
此主题相关图片如下：1.jpg
我现在做了个窗口，导入数据可以做到了，但是需要选择人员并将首次检测_检测长度数值按照人员进行分配到指定的位置，也就是在导入数据的时候同时进行的，这个位置不知道怎么写，请问下应该怎么写
http://pan.baidu.com/s/1pKMReoN
[此贴子已经被作者于2017/2/23 22:03:30编辑过]
-- 发布时间：2017/2/24 1:02:00
--
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
-- 发布时间：2017/2/24 9:10:00
-- 回复：（有点色）Dim yrs() As String = {"A", "B", "...
谢谢，请问下这个 If e.Form.Controls(yr).checked Then count +=1 是什么意思，为什么不是+1而是+=1呢
-- 发布时间：2017/2/24 9:30:00
--
是简写，等同于 count = count + 1
-- 发布时间：2017/2/24 10:10:00
-- 回复：（有点色）是简写，等同于 count = count + 1
谢谢
[此贴子已经被作者于2017/2/24 10:10:31编辑过]
-- 发布时间：2017/2/24 10:21:00
-- 回复：（有点色）是简写，等同于 count = count + 1
我要判断那几个复选框选中状态为数量为0，请问应该怎么写，这儿卡住了
-- 发布时间：2017/2/24 10:22:00
--
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
-- 发布时间：2017/2/24 14:25:00
-- 回复：（有点色）Dim yrs() As String = {"A", "B", "...
谢谢