Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

在“平台”中能否使用步长值批量增加某一字段?

周金涛  发表于:2009-01-22 21:03:07  
复制

例:有一表中有字段“房屋名称”、“楼层”两个,此地“房屋名称”有“名人酒店”、"名人公寓",楼层分别输入“3”层、“4”层,最终显示是
房屋名称 楼层
名人酒店 1
名人酒店 2
名人酒店 3
名人公寓 1
名人公寓 2
名人公寓 3
名人公寓 4
恳请高手赐教,在线不胜感谢!

 

Top
钱玉炜 发表于:2009-01-23 08:19:49

通过在VBA中使用循环语句,对表进行写入

Dim rst As New ADODB.Recordset
rst.Open "表5", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 0 To 2
rst.AddNew
rst.Fields(0) = "名人酒店"
rst.Fields(1) = i + 1
rst.MoveNext
Next i
For i = 0 To 3
rst.AddNew
rst.Fields(0) = "名人公寓"
rst.Fields(1) = i + 1
rst.MoveNext
Next i

 



周金涛 发表于:2009-01-23 11:34:57
首先要感谢“炜哥”的鼎力向助!在你的基础之上我重新修改了一下,就是每次录完了里面的顺序不是按从小到大排列的,有点烦,能否帮忙修改一下?在此再一次对“炜哥”的鼎力向助表示感谢!我也愿意把源码呈现出来供有用之人参考!

周金涛 发表于:2009-01-23 11:35:55
首先要感谢“炜哥”的鼎力向助!在你的基础之上我重新修改了一下,就是每次录完了里面的顺序不是按从小到大排列的,有点烦,能否帮忙修改一下?在此再一次对“炜哥”的鼎力向助表示感谢!我也愿意把源码呈现出来供有用之人参考!
点击下载此附件

总记录:3篇  页次:1/1 9 1 :