| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 录入计算 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87232) |
| -- 作者：zxjt -- 发布时间：2016/7/6 10:45:00 -- 录入计算 有1个库存表，想在提交采购订单的时候，能对比订单明细里是否存在有库存表里的东西，有的话就增加他的数量，没有的话就增加新的一条。 如果用for循环的话，感觉不够效率，有什么更有效率的方法吗，表能合并吗
|
| -- 作者：大红袍 -- 发布时间：2016/7/6 10:48:00 -- 思路就是，循环每一行，分别查找，没有就新增行。
你也可以不要做库存表，直接根据入库表、出库表查询得到库存也行。 |
| -- 作者：大红袍 -- 发布时间：2016/7/6 10:49:00 -- 如果不想查，就填充
http://www.foxtable.com/webhelp/scr/0680.htm
|
| -- 作者：zxjt -- 发布时间：2016/7/6 12:07:00 -- 为什么我复制后的填充代码不能筛选重复呢 |
| -- 作者：大红袍 -- 发布时间：2016/7/6 12:09:00 -- 设置属性
ExcludeExistValue |
| -- 作者：zxjt -- 发布时间：2016/7/6 13:59:00 -- For Each b As Row In Tables("表B").Rows For Each a As Row In Tables("表A").Rows If b("第一列") = a("第一列") Then a("第二列") = a("第二列")+b("第二列") Else Dim nma() As String = {"第一列","第二列"} Dim nmb() As String = {"第一列","第二列"} Dim dr As Row = Tables("表A").AddNew For i As Integer = 0 To nmb.Length - 1 dr(nma(i)) = b(nmb(i)) Next End If Next Next 为什么在复制到a表的时候会复制多了
|
| -- 作者：大红袍 -- 发布时间：2016/7/6 14:13:00 -- 参考
http://www.foxtable.com/webhelp/scr/1533.htm
|