- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 复选遍历(追加) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75992)
-- 发布时间：2015/10/19 15:53:00
-- 复选遍历(追加)
现在有一张订单表 表中有司机 车牌 车型等 往往好几行订单都是同一个司机与车牌,车型等,我的想法是复选选中几行,然后在其中一行输入司机 车牌 车型等 单击按钮把当前行的司机 车型等等的值赋给选中剩余行的司机 车型 车辆属性等 还有就是能否在遍历完成后 这些选中行背景色改变:  此主题相关图片如下：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 但是我直选中三行 单击按钮后它赋值了四行 接着还要实现赋值后自动锁定 再编辑需要解锁 |
-- 发布时间：2015/10/19 15:56:00
--
勾选后点击按钮，给勾选的行赋值文本框里面的内容，然后锁定行，然后改变锁定行的背景颜色？
-- 发布时间：2015/10/19 16:05:00
--
勾选后 在复选的行里面输入 在赋给其他复选的行 然后锁定已赋值的行 最好能把背景色也改变 如果您觉得麻烦也可以不理这一步 等我以后学好再自己完善
-- 发布时间：2015/10/19 16:19:00
--
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编辑过]
-- 发布时间：2015/10/19 16:21:00
--
修改颜色，参考
http://www.foxtable.com/help/topics/0656.htm