高手进来看一看

xwj1003 2003-05-16 05:03:20

我在每个模块里都有添加按钮，而且他们代码都是一样的，
Public Sub Add_Click()
With adoPrimaryRS
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
End If
.AddNew
mbAddNewFlag = True
SetButtons False
End With
Exit Sub
End Sub
我把代码复制到模块中，可是系统提示：要求对象。如何解决这个代码冗余问题？？？？？

...全文

23 25 打赏收藏转发到动态举报

写回复

用AI写文章

25 条回复

切换为时间正序

请发表友善的回复…

发表回复

windcandle 2003-06-23

打赏
举报

另外

“我只在模块定义了adoPrimaryRS as new recordset 其他地方没有定义”这个也值得商榷。

通常在定义的时候不必加new，只要dim adoPrimaryRS as recordset，就可以了
然后在程序中用set adoPrimaryRS = new recordset初始化就可以使用了。

windcandle 2003-06-23

打赏
举报

兄弟，add_click(adoPrimaryRS)这行有问题呀!

Click事件的函数只允许带一种参数，就是XXX_Click(Index as Integer)，就是控件数组的下标，不能用来传其他类型的参数的！

xwj1003 2003-06-05

打赏
举报

请问楼上应该怎么写？

windcandle 2003-05-30

打赏
举报

如果已经在模块中定义为公用的变量，就没必要通过参数的方式传进去

blasterboy 2003-05-30

打赏
举报

adoPrimaryRS 美定义

xwj1003 2003-05-30

打赏
举报

没人会阿?

xwj1003 2003-05-22

打赏
举报

xwj1003 2003-05-21

打赏
举报

mfkqiu 2003-05-20

打赏
举报

mfkqiu 2003-05-20

打赏
举报

xwj1003 2003-05-20

打赏
举报

我只在模块定义了adoPrimaryRS as new recordset 其他地方没有定义

xwj1003 2003-05-20

打赏
举报

to qingming81(晴明):
public WithEvents adoPrimaryRS as ADODB.recordset
写在模块中无效。

xwj1003 2003-05-19

打赏
举报

我再简单说一下：如果两个窗体都有下面的代码：
Public Sub Add_Click()
With adoPrimaryRS
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
End If
.AddNew
mbAddNewFlag = True
SetButtons False
End With
Exit Sub
End Sub
注：adoPrimaryRS已经在模块中定义为Recordset。我现在把这段代码改过后写在模块中：
Public Sub Add_Click(adoPrimaryRS as adodb.recordset)
With adoPrimaryRS
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
End If
.AddNew
mbAddNewFlag = True
SetButtons False
End With
Exit Sub
End Sub

按钮代码是：
add_click(adoPrimaryRS)
系统提示：类型不匹配。我想这指的就是adoPrimaryRS，可是他们明明都是recordset，怎么类型不匹配呢？

xwj1003 2003-05-19