复选遍历(追加) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

现在有一张订单表表中有司机车牌车型等

往往好几行订单都是同一个司机与车牌,车型等,我的想法是复选选中几行,然后在其中一行输入司机车牌车型等单击按钮把当前行的司机车型等等的值赋给选中剩余行的司机车型车辆属性等

还有就是能否在遍历完成后这些选中行背景色改变:
dvubb

此主题相关图片如下：2015-10-19_154021.jpg

以前我用的方法是 :For Each r As Row In Tables("配载订单").GetCheckedRows

r("承运商") = e.Form.Controls("车牌").text

r("车型") = e.Form.Controls("车型").text

r("司机")= e.Form.Controls("司机").text

用文本框或其他控件,现在我想能否在表中输入然后遍历到其他选中行我试过这样

For Each r As Row In Tables("配载订单").GetCheckedRows

Tables("配载订单").Rows(r.Index+1)("承运商") = r("承运商")

但是我直选中三行单击按钮后它赋值了四行

接着还要实现赋值后自动锁定再编辑需要解锁

勾选后点击按钮，给勾选的行赋值文本框里面的内容，然后锁定行，然后改变锁定行的背景颜色？

勾选后在复选的行里面输入在赋给其他复选的行然后锁定已赋值的行最好能把背景色也改变如果您觉得麻烦也可以不理这一步等我以后学好再自己完善

AfterEdit事件

Select Case e.Col.name
    Case "第一列","第二列"
        If e.Row.Checked Then
            For Each r As Row In e.Table.GetCheckedRows
                If r.index <> e.Row.index
                    r("第一列") = e.Row("第一列")
                    r("第二列") = e.Row("第二列")

                    r.Locked = True
                End If
            Next
        End If
End Select

[此贴子已经被作者于2015/10/19 16:20:23编辑过]

主题：复选遍历(追加)