易截截图软件、单文件、免安装、纯绿色、仅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中使用WScript调用外部命令 - VB / 基础类

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

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

用VB编写TXT文档 - .NET技术 / VB.NET

我是VB的新成员,现在想用VB来做个TXT文档,请大家给我代码及介绍一下相应的控件!
非常感谢!!!!!!
可以用一些OFFICE控件

google上找一下吧,VB写入TXT,很多样例代码的

直接调查用就可以了

面对美女 ......

帮我改改这VB题 - VB / 基础类

帮我改改 我总觉得有问题
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

vb中如何实现对象属性的动态设置 - VB / 基础类

本人使用的是VB6.0版本
假设有一个对象A,A内有类型为B的对象属性。现在的问题是,需要添加若干个B对象作为A对象的属性。如,
 A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号