设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1955|回复: 6
打印 上一主题 下一主题

[窗体] 批量更新tbl生产计划明细表!MO字段

[复制链接]
跳转到指定楼层
1#
发表于 2013-9-14 14:13:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
批量更新tbl生产计划明细表!MO字段
各位老师我想依据tblMAX_MO表中的值来批量更新tbl生产计划明细表!MO字段(递增+1),谢谢

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2013-9-16 11:26:47 | 只看该作者
各位老师给看看,谢谢了
3#
发表于 2013-9-20 14:23:09 | 只看该作者
update tbl生产计划明细表 set MO="M1"
4#
 楼主| 发表于 2013-9-20 19:47:31 | 只看该作者
todaynew 发表于 2013-9-20 14:23
update tbl生产计划明细表 set MO="M1"

老师理解错误了我的意思是将MO的字段进行批量增加
5#
发表于 2013-9-25 10:50:46 | 只看该作者
先做一个生成表查询
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;
6#
发表于 2013-9-25 11:25:36 | 只看该作者
  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
复制代码
7#
 楼主| 发表于 2013-9-25 13:27:54 | 只看该作者
谢谢上面二位老师了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-27 02:39 , Processed in 0.092569 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表