现在有一张订单表 表中有司机 车牌 车型等往往好几行订单都是同一个司机与车牌,车型等,我的想法是怎样在复选选中的行中只要输入一次值遍历到其他选中行
还有就是能否在遍历完成后 这些选中行背景色改变,并与其他复选行形成交替行 类似:
南山 深圳南山店 沙河东路欧洲城 190 1.88 1484 2015-10-01 00:00 翔越 杨晋刚 湘L67581 9.6 2015/10/1 合同
南山 深圳南山店 沙河东路欧洲城 2 0.07 32 2015-10-01 00:00 翔越 杨晋刚 湘L67581 9.6 2015/10/1 合同
南山 深圳南山店 沙河东路欧洲城 26 0.72 234 2015-10-01 00:00 翔越 杨晋刚 湘L67581 9.6 2015/10/1 合同
南山 深圳南山店 沙河东路欧洲城 24 0.48 287 2015-10-01 00:00 翔越 杨晋刚 湘L67581 9.6 2015/10/1 合同
南山 深圳南山店 沙河东路欧洲城 36 1.27 720 2015-10-01 00:00 翔越 杨晋刚 湘L67581 9.6 2015/10/1 合同
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 5 0.25 29 2015-10-01 00:00 翔越 刘春 粤AE8537 1 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 6 0.62 54 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 4 0.19 108 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 11 0.45 100 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 75 2.5 1029 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 1 0.1 2 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 1 0.01 1 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 2 0.1 13 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 1 0.05 14 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 10 0.22 30 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
顺德 顺德商场 广东省佛山市顺德区南国东路山岚水岸花园一期首层 1 0.04 15 2015-10-01 00:00 翔越 刘春 粤AE8537 9.6 2015/10/1 中外运
以前我用的方法是 :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
怎样让他遍历完成后改变所选行背景色 然后清除复选状态
加好友 
发短信
Post By：2015/10/19 11:50:00 [只看该作者]
