易截截图软件、单文件、免安装、纯绿色、仅160KB

请教!用的是VB 6.0 - VB / 控件

把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的，无法更新。我也不需要更新数据，只要能做到第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移就行了。不更新数据。
之前我用双重循环

但是运行到rs1.fields(z)=rs1.fields(z)+rs2.fields(i) z=10 i=11
就会出错。原因是一旦赋值就会更新数据库，有什么办法解决或绕开这个问题伐？如有知道的，请帮个忙。
简单点说就是能对返回的结果进行编辑但又不会更新数据库的控件有伐？
以只读的方式读取数据就是了

引用
以只读的方式读取数据就是了


只读的话，就不能修改结果了。我现在要的是能修改统计的结果集，但不更新数据库。
不想更新数据库，结果集是用来显示的吧，在显示时选择下。
显示的时候处理，把10和11相加，11跳过不显示
使用ADO的断开记录集，设置Set RS.ActiveConnection = Nothing，这时无论是AddNew、Delete，均不会对原始记录集产生影响。
附上源码：
  If Not rsCopy7 Is Nothing Then Set rsCopy7 = Nothing

  Set rsCopy7 = Module2.rs.Clone  
  While Not rsCopy7.EOF
  If (rsCopy7.AbsolutePosition = 10) Then
  While Not Module2.rs.EOF
  If (Module2.rs.AbsolutePosition = 11) Then
  For Z = 2 To 13
 


相关问答：

求教下VB如何给D3D游戏写屏 - VB / API

想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......

vb的成功之路 - 扩充话题 / 共享软件（走向海外）

在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！




没分了，楼主多来点分！

来接点分

......

【急求】VB中使用WScript调用外部命令 - VB / 基础类

在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

求助：VB调用动态库问题 - VB / 基础类

各位大虾：
  我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......

vb - VB / 基础类

在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号