主题：[求助]CheckedComBoBox控件应用（已解决）

如果是限定数据，可以这样写，如

Dim ccbx As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")

Tables("扎包数据2").Filter = "节拍号 in ('" & ccbx.Text.Replace(",", "','") & "')"

Dim ccbx As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Tables("扎包数据2").Filter = "节拍号 in ('" & ccbx.Text.Replace(",", "','") & "')"

For i As Integer = 1 To Tables("扎包数据2").Rows.Count -1
    Dim xlfd As Double = Rand.Next(94,106) / 100 '效率浮动
    Dim bcfd As Integer = Rand.Next(2,6) '拔插卡浮动秒时
    Dim p1 As Row = Tables("扎包数据2").Rows(i-1) '上一行
    Dim p2 As Row = Tables("扎包数据2").Rows(i) '当前行
    If i = 1 Then
        p1("插卡时间") = dr("插卡时间")
        p1("拔卡时间") = p1("插卡时间").AddSeconds((gwbzms + zjsj) * p1("产量") * xlfd) 'gwbzms = 工位标准秒时,zjsj = 增加时间
        p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
        p2("拔卡时间") = p2("插卡时间").AddSeconds((gwbzms + zjsj) * p2("产量") * xlfd)
    Else
        p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
        p2("拔卡时间") = p2("插卡时间").AddSeconds((gwbzms + zjsj) * p2("产量") * xlfd)
    End If
Next

Dim ccbx As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim ary() As String = ccbx.text.Split(",")
For i As Integer = 1 To Tables("扎包数据2").Rows.Count -1
    Dim xlfd As Double = Rand.Next(94,106) / 100 '效率浮动
    Dim bcfd As Integer = Rand.Next(2,6) '拔插卡浮动秒时
    Dim p1 As Row = Tables("扎包数据2").Rows(i-1) '上一行
    Dim p2 As Row = Tables("扎包数据2").Rows(i) '当前行
    If array.IndexOf(ary, p2("节拍号")) >= 0 Then
        If i = 1 Then
            p1("插卡时间") = dr("插卡时间")
            p1("拔卡时间") = p1("插卡时间").AddSeconds((gwbzms + zjsj) * p1("产量") * xlfd) 'gwbzms = 工位标准秒时,zjsj = 增加时间
            p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
            p2("拔卡时间") = p2("插卡时间").AddSeconds((gwbzms + zjsj) * p2("产量") * xlfd)
        Else
            p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
            p2("拔卡时间") = p2("插卡时间").AddSeconds((gwbzms + zjsj) * p2("产量") * xlfd)
        End If
    Else
        If i = 1 Then
            p1("插卡时间") = dr("插卡时间")
            p1("拔卡时间") = p1("插卡时间").AddSeconds(gwbzms * p1("产量") * xlfd)
            p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
            p2("拔卡时间") = p2("插卡时间").AddSeconds(gwbzms * p2("产量") * xlfd)
        Else
            p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
            p2("拔卡时间") = p2("插卡时间").AddSeconds(gwbzms * p2("产量") * xlfd)
        End If
    End If
Next

Tables("扎包数据2").Filter = ""

For i As Integer = 1 To Tables("扎包数据2").Rows.Count -1
    Dim xlfd As Double = Rand.Next(94,106) / 100 '效率浮动
    Dim bcfd As Integer = Rand.Next(2,6) '拔插卡浮动秒时
    Dim p1 As Row = Tables("扎包数据2").Rows(i-1) '上一行
    Dim p2 As Row = Tables("扎包数据2").Rows(i) '当前行
    If i = 1 Then
        p1("插卡时间") = dr("插卡时间")
        p1("拔卡时间") = p1("插卡时间").AddSeconds(gwbzms * p1("产量") * xlfd)
        p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
        p2("拔卡时间") = p2("插卡时间").AddSeconds(gwbzms * p2("产量") * xlfd)
    Else
        p2("插卡时间") = p1("拔卡时间").AddSeconds(bcfd)
        p2("拔卡时间") = p2("插卡时间").AddSeconds(gwbzms * p2("产量") * xlfd)
    End If
Next

Tables("扎包数据2").Filter = ""

第一行的时候，如何计算？逻辑是什么？你计算的时候要两行的啊。