还有个问题 大大们能否帮帮忙啊

mye680

现在还有个问题就是 我发完材料产生一个单号2022005 这个单号里包含了 多条发料信息。但是材料发出后没有使用完，使用方退回某一项。我按照2022005这个单号从发料明细里将关于这比单号的信息找出来赋值到发料单。然后在发料单里进行修改，将退回物料条目删除。然后再保存到发料明细，发料明细按照2022005这个单号编辑之后内容保覆盖之前的内容。。。再次感谢大大们了。初步设想用字典循环然后复制但是还没上手头就大了，看了一堆视频搞得我头更大了

mye680

有个问题表述有误，在更更改好已发出的发料单的内容点保存是 又可以在明细里覆盖之前保存的那条信息

582766

看不懂。貌似逻辑上面有问题

mye680

582766 发表于 2022-11-28 21:25
看不懂。貌似逻辑上面有问题

就是我发完材料产生一个单号2022005 这个单号里包含了 多条发料信息。但是材料发出后没有使用完，使用方退回某一项。我按照2022005这个单号从发料明细里将关于这比单号的信息找出来赋值到发料单。然后在发料单里进行修改，将退回物料条目删除。然后再保存到发料明细，发料明细按照2022005这个单号编辑之后内容保覆盖之前的内容。

mye680

Sub 字典写入()
Dim dic As New dictionary, i As Long, j As Long, arr, brr(1 To 10)
arr = Range("a1").CurrentRegion
For i = 2 To UBound(arr)
    For j = 1 To UBound(arr, 2)
     brr(j - 0) = arr(i, j)
     
   
        Next j
        dic(arr(i, 1)) = brr
        
    Next i
   
    Dim a As String, b As String
    a = [a2]: b = [b2]
   
Range("k6").Resize(1, 10) = dic(a)(b)

   
End Sub

我大概这样操作 ，但是给 Range("k6").Resize(1, 10) = dic(a)(b) 这句提示错误 无法赋值 前面给字典撞人数据是没有问题

WANT-T

这种东西，简称进销存，比较通用的解决方案是ado+sql，但是明细放到表格里，如果要删除的话，又比较恶心，建议数据入库 ，excel做前端，打个框架，然后功能 随用随设计，我特别想给你 直接搞定，但我的代码实在不适合新手，所以 出个思路就完了！

mye680

WANT-T 发表于 2022-11-28 21:36
这种东西，简称进销存，比较通用的解决方案是ado+sql，但是明细放到表格里，如果要删除的话，又比较恶心， ...

我就只自己爱好 想学习一下vba 自己按照工作资料写方便以后工作。入库出库 库存都可以了，现在就卡在这里了，后期查询都好说 就是发出后退回更改这一步最头疼

WANT-T

mye680 发表于 2022-11-28 21:40
我就只自己爱好 想学习一下vba 自己按照工作资料写方便以后工作。入库出库 库存都可以了，现在就卡在这里 ...

入库就是进，对应INSERT INTO，出库 就是销 对应 DELETE，库存就是存 对应SELECT，最基础的进销存逻辑，你这里要求修改，修改通常是有两个方面，同一单据内有条目量的增加，这个 需要先删除（delete)再写入(insert),同一单据只修改不增减条目，对应更新 UPDATE。
这种案例论坛里太多太多了，学习的话，就动手搜一下，最好找个正经的视频，或者资料系统的学习一下，然后你自己就知道 怎么搞了。
这个东西定制起来工作还是不算小的，不建议白嫖；
首先你也不可能嫖到与自己实际需求一样的东西！
其次这个东西 还不是一锤子买卖 ，后续一定还需要 不段的维护，开始的时候就白嫖了，后期的维护找谁呢？
最后祝工作顺利，天天开心，好人 一生平安，附一张实际应用的工具的部分功能代码截图！

mye680

WANT-T 发表于 2022-11-28 22:04
入库就是进，对应INSERT INTO，出库 就是销 对应 DELETE，库存就是存 对应SELECT，最基础的进销存逻辑， ...

正在一点一点的学习，慢慢来吧 这种事情必须自己得学一些

mye680

问题也解决