编程论坛 → VB6论坛

关于vsflexgrid的两个问题

lwx269 发布于 2016-08-22 15:09， 2429 次点击

各位高手，碰到两个问题，请百忙中解答一下。
1、这个控件我记得有一个破解的办法：是用记事本打开窗体文件，删除一些内容就不会跳出提醒注册的界面的，但具体怎么弄记不得了。
2、用ADO+vsflexgrid的时候，如果要修改的数据反馈到数据库，网上有很多代码，如下。
Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
  rs.MoveFirst    '//rs为记录集
  rs.Move vsflexgrid1.Row - 1
  rs.Edit
  If vsflexgrid1.text = "" Then
      rs.Fields(vsflexgrid1.Col - 1) = Null
  Else
     rs.Fields(vsflexgrid1.Col - 1) = vsflexgrid1.text
  End If
  rs.Update
end sub
但运行到rs.edit的时候提示出错，哪里少了什么东西吗？

[此贴子已经被作者于2016-8-22 15:12编辑过]

5 回复

#2

xiangyue05102016-08-22 15:21

1. 没有用过，只是用过msflexgrid。不过百度上很多。
2. rs应该是recordset，我看了一下它没有 edit这个方法吧。这句不需要应该就可以了。你试试（如果数据库有重要数据，先备份）
http://www.

#3

ZHRXJR2016-08-22 17:48

rs.Edit方法是早期版本的ADO的一个方法，现在ADO没有这个方法，将这个语句删除即可。

#4

lwx2692016-08-23 08:21

回复 3楼 ZHRXJR

删除后也不行，运行到第一行就出问题了。

#5

xiangyue05102016-08-23 08:39

回复 4楼 lwx269

前面的是edit根本不存在，应该是编译的时候就报错了。
你现在运行到这句报错，应该就是你的rs有问题。
首先rs应该是一个全局变量，你提供的代码并未看到为rs建立数据连接和创建数据集的操作，从这个方法去检查

#6

ZHRXJR2016-08-24 09:37

rs.MoveFirst
rs是记录集对象，这个对象使用必须需要声明二个对象：数据库连接对象与记录集对象，而且必须有ADO的引用，否则是不能使用的。
你的代码中没有看到数据库连接对象与记录集对象的声明，也没有看到连接数据库的语句，没有看到连接数据表的语句，就无法判断问题究竟出在哪里。

1