Office中国论坛/Access中国论坛

标题: 批量更新tbl生产计划明细表!MO字段 [打印本页]

---

作者: yanwei82123300    时间: 2013-9-14 14:13
标题: 批量更新tbl生产计划明细表!MO字段
批量更新tbl生产计划明细表!MO字段
各位老师我想依据tblMAX_MO表中的值来批量更新tbl生产计划明细表!MO字段（递增+1）,谢谢

---

作者: yanwei82123300    时间: 2013-9-16 11:26
各位老师给看看，谢谢了

---

作者: todaynew    时间: 2013-9-20 14:23
update tbl生产计划明细表 set MO="M1"

---

作者: yanwei82123300    时间: 2013-9-20 19:47

todaynew 发表于 2013-9-20 14:23
update tbl生产计划明细表 set MO="M1"

老师理解错误了我的意思是将MO的字段进行批量增加

---

作者: djt    时间: 2013-9-25 10:50
先做一个生成表查询
SELECT t1.Co_Number, count(*)+(select Mo_Number from tblMax_Mo) AS ListNo INTO ListNo
FROM [select Co_Number from tbl生产计划明细表 group by Co_Number]. AS t1 INNER JOIN [select Co_Number from tbl生产计划明细表 group by Co_Number]. AS t2 ON t1.Co_Number>=t2.Co_number
GROUP BY t1.Co_Number;
再做一个update更新
UPDATE tbl生产计划明细表 AS t1 INNER JOIN ListNo AS t2 ON t1.Co_Number=t2.Co_Number SET t1.Mo = t2.ListNo;

---

作者: Henry D. Sy    时间: 2013-9-25 11:25

1. Dim rs As New ADODB.Recordset
   
2.     Dim i As Long
   
3.     Dim sSQL As String
   
4.     i = DLookup("MO_NUMBER", "tblMAX_MO")
   
5.     sSQL = "select Mo from tbl生产计划明细表"
   
6.     With rs
   
7.         .Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
8.         Do While Not .EOF
   
9.             rs.Fields(0) = i
   
10.             .MoveNext
    
11.             i = i + 1
    
12.         Loop
    
13.         .UpdateBatch
    
14.         .Close
    
15.     End With
    
16.     Set rs = Nothing

复制代码

---

作者: yanwei82123300    时间: 2013-9-25 13:27
谢谢上面二位老师了

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3