【求助】关于数据表子窗体某字段根据条件批量自动修改

5574916

数据库内有
表:订单明细；产品明细表
窗体：订单；订单子窗体



情况：
子窗体的单位手动更改为件/打时，规格对应产品可以自动改动。

现在问题是：
有什么办法可以实现当【组合框为件/打】时，子窗体的【规格】【对应产品各自的规格】批量自动改动。

Henry D. Sy

应该可以
不过你得传例子

5574916

Henry D. Sy 发表于 2011-10-4 09:16
应该可以
不过你得传例子

昨晚网络出了问题，一直没传上，现在可以了，请多多指教。

todaynew

5574916 发表于 2011-10-4 10:38
昨晚网络出了问题，一直没传上，现在可以了，请多多指教。

用更新查询就可以了。关键是要知道修改的算法，比如统一除以100，统一乘以12什么的。

dim ssql as string
dim s,v,f
ssql="update 产品表 set 单位='"
select case me.单位.value
    case "打"
       s="件":f="*"：v=12
    case "箱"
       s="盒":f="*":v=100
    .......
end select
ssql=ssql &  s & "',规格=规格" & f & v & " where 单位='" & me.单位.value & "'"
currentdb.execute ssql

5574916

todaynew 发表于 2011-10-4 11:08
用更新查询就可以了。关键是要知道修改的算法，比如统一除以100，统一乘以12什么的。

dim ssql as s ...

多谢版主指导，我感觉与我想实现的点出入。我把思路理清一些，看看我们想的是否一致如果有更好的思路，还请多多指教！

先理一下这样使用的原因：
我构思的与当前问题相关的开单步骤：



1.客户购买大量产品（例如客户要买的都是一件一件的话，不同的产品对应件的规格也不一样，有的是1件96，有的是144....等等）；

2.制单人将客户需要的产品选入列表框（使用双列表框），确认无误后【确定】批量写入订单明细表。
3.接下来是批量写入每一个产品的购买单位为件（这个组合框选为件时可以实现）
！！问题出在这里了，当单位都为件时，如何使规格根据产品各自的的规格改动。

例如：单独操作的话，是这样的。
【订单子窗体】
选入一个商品-100-16；然后单位选为件；规格自动写入100；  如果单位改为打时，规格就写入16。
            商品-101-17 >>> 件 >>> 101  /  打 >>> 17。
以此类推...

单独操作没有问题，现在想实现的是 商品批量写入了，单位批量写入了，规格要怎么批量变动？
到这里这个思路算清晰吧望大家指教

例子附件
http://www.office-cn.net/forum.p ... XwxNjkwMjh8MTA1ODUx

Henry D. Sy

1. Private Sub 批量更改_AfterUpdate()
   
2.     Dim stSql As String
   
3.     Dim strWhat As String
   
4.     On Error GoTo 批量更改_AfterUpdate_Error
   
5. 
   
6.     strWhat = Me.批量更改
   
7.     If strWhat = "打" Then
   
8.         stSql = _
   
9.         "UPDATE 产品明细表 RIGHT JOIN 订单明细 ON 产品明细表.产品名称 = 订单明细.产品名称 SET 订单明细.单位 = '" _
   
10.                 & strWhat & "', 订单明细.规格 = 规格打"
    
11.     Else
    
12.         stSql = _
    
13.         "UPDATE 产品明细表 RIGHT JOIN 订单明细 ON 产品明细表.产品名称 = 订单明细.产品名称 SET 订单明细.单位 = '" _
    
14.                 & strWhat & "', 订单明细.规格 = 规格件"
    
15.     End If
    
16.     CurrentDb.Execute stSql
    
17. 
    
18.     Forms![订单]![订单子窗体].Requery
    
19. 
    
20.     On Error GoTo 0
    
21.     Exit Sub
    
22. 
    
23. 批量更改_AfterUpdate_Error:
    
24. 
    
25.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
26. 
    
27. End Sub
    

复制代码

5574916

Henry D. Sy 发表于 2011-10-4 12:38

正解，多谢Henry D. Sy 指导！
我在示例中运行，处理的时间很快，更新后就同步改过来了。
我把代码放到实际数据库中运行（产品明细表900多条记录；订单明细表10多万条记录）处理时间大概需要4秒。这样的处理时间算是在正常吗，需不需要再继续优化？

Henry D. Sy

不正常，是太快了。

5574916

Henry D. Sy 发表于 2011-10-4 13:35
不正常，是太快了。

嘿嘿，明白明白，再次感谢你的指导！

cclxf

学习了