Access交流中心

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

如何在记录集中截取我指定的记录?比较急,求各路大神关注。

布鲁斯  发表于:2013-10-24 18:28:55  
复制

如题,我想截取记录集 【rst】 中的第5到第10条记录,最后在赋给另外一个记录集【kst】中该怎样做,急,求各路大神指教

 

Top
cspa 发表于:2013-10-24 19:32:49

做一个for循环:

Dim N As Integer

......

rst.MoveLast
rst.MoveFirst
kst.MoveFirst
With kst
    For N = 1 To 10
        If N >= 5 Then
             .Edit
             .Fields("kst字段名") = rst.Fields("rst字段名")
             .Update
        End If
        .MoveNext
        rst.MoveNext
   Next
End With

 



布鲁斯 发表于:2013-10-24 20:02:26

在运行到【.edit】的时候,弹出提示【方法和成员未找到】怎么回事?





cspa 发表于:2013-10-24 22:04:42

是否将kst也象rst一样定义为了记录集?它是基于表的还是查询或窗体的?如果kst中无记录,将edit改为AddNew

方便的话可上传实例看看。




布鲁斯 发表于:2013-10-25 13:28:04
哦,已经解决这个问题了,非常感谢cspa!

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