易截截图软件、单文件、免安装、纯绿色、仅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 的 PictureBOX 控件绘图问题 - VB / 控件

初学,大胆提问,请高手不吝赐教
1、滚动条点击与绘图板(屏幕,Piceure1)的移动问题已经解决。
  Picture1.Top = -VScroll1.Value + bcW '垂直移动
  Picture1.Left = -HScroll1.Value + bcW ' ......

关于vb语音开发的问题? - VB / 多媒体

在网上下载了speechsdk51LangPack安装后,用vb可以发音(中文),里面有个girl xiaokun的发音,对中文很好听。但是这个speechsdk51LangPack有100多M,我的vb项目打包后,怎么才可以装到其他机子上也能用??总不能每 ......

vb - VB / 基础类

我想把word另存为xml之后,用vb读取这个xml的内容,请问如何实现?
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号