以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求高手帮忙优化代码,多谢了{已解决}  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39762)

--  作者:a9858
--  发布时间:2013/9/1 7:20:00
--  [求助]求高手帮忙优化代码,多谢了{已解决}
车辆有很多我只选了两个车号,帮忙优化一下多谢

For Each dr As DataRow In DataTables("发货单").Select("[运距] > 20 and [车号] = 81")
    dr("运费") = 10
Next
For Each dr As DataRow In DataTables("发货单").Select("[运距] > 20 and [车号] = 82")
    dr("运费") = 10
Next


还有一个问题,以后车辆增加我还需要修改代码,有没有一劳永逸的办法从表里提取车号自动计算呢?
[此贴子已经被作者于2013-9-1 9:36:49编辑过]

--  作者:逛逛
--  发布时间:2013/9/1 8:43:00
--  
以下是引用a9858在2013-9-1 7:20:00的发言:
车辆有很多我只选了两个车号,帮忙优化一下多谢

For Each dr As DataRow In DataTables("发货单").Select("[运距] > 20 and [车号] in (81,82)")
    dr("运费") = 10
Next
 
第二个问题不理解,如果所有车都是同样处理的话,可以直接将车号的条件去除
For Each dr As DataRow In DataTables("发货单").Select("[运距] > 20 ")
    dr("运费") = 10
Next
[此贴子已经被作者于2013-9-1 8:59:07编辑过]

--  作者:a9858
--  发布时间:2013/9/1 9:36:00
--  
多谢逛逛帮忙