以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  复选遍历  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75979)

--  作者:sf020cf
--  发布时间:2015/10/19 11:50:00
--  复选遍历
现在有一张订单表 表中有司机 车牌 车型等
往往好几行订单都是同一个司机与车牌,车型等,我的想法是怎样在复选选中的行中只要输入一次值遍历到其他选中行 
还有就是能否在遍历完成后 这些选中行背景色改变,并与其他复选行形成交替行 类似:

南山 深圳南山店 沙河东路欧洲城 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
怎样让他遍历完成后改变所选行背景色 然后清除复选状态


--  作者:大红袍
--  发布时间:2015/10/19 11:54:00
--  

什么意思?选一样,根据这个三个字段,把其余的也勾选?然后设置背景颜色?

 

请上传foxtable例子。