现在有一张订单表 表中有司机 车牌 车型等往往好几行订单都是同一个司机与车牌,车型等,我的想法是复选选中几行,然后在其中一行输入司机 车牌 车型等 单击按钮把当前行的司机 车型等等的值赋给选中剩余行的司机 车型 车辆属性等
还有就是能否在遍历完成后 这些选中行背景色改变:

此主题相关图片如下: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
Next
用文本框或其他控件,现在我想能否在表中输入 然后遍历到其他选中行 我试过这样
For Each r As Row In Tables("配载订单").GetCheckedRows
Tables("配载订单").Rows(r.Index+1)("承运商") = r("承运商")
Next
但是我直选中三行 单击按钮后它赋值了四行
接着还要实现赋值后自动锁定 再编辑需要解锁