Question

为什么我收到错误＆＃34; Sub或Function未定义＆＃34; ...这是我的代码

FORM2

Option Explicit
Public Report As New CrystalReport1
Public mvCn As New ADODB.Connection

 Public Function printReport()

 Dim strConnectionString As String
 Dim rs As ADODB.Recordset
 Dim strScript As String

 strConnectionString = "Provider=SQLOLEDB............"

 mvCn.ConnectionString = strConnectionString
 mvCn.CommandTimeout = 0
 mvCn.CursorLocation = adUseClient
 mvCn.Open

 strScript = strScript & "SELECT * FROM employee" & vbCrLf

 Set rs = mvCn.Execute(strScript)

 Report.Database.SetDataSource rs
 Report.AutoSetUnboundFieldSource crBMTNameAndValue

 CRViewer1.ReportSource = Report
 CRViewer1.ViewReport

 Set Report = Nothing

 End Function

表格1 .....调用我的功能＆＃34; printReport＆＃34;这里

Option Explicit

Private Sub Command1_Click()

printReport

End Sub

此处出现错误消息＆＃34; Private Sub Command1_Click（）＆＃34;

Answer 1

您的printReport函数定义在哪里？如果它在类模块中，那么您需要实例化该类的实例，然后将printReport作为该类的方法调用。例如：

{ isCurrentUser } from './services/UserSession'

isCurrentUser(user)

或者您可以将printReport函数放在一个模块中，然后您不实例化它或将其称为方法 - 您可以在点击事件中调用它。

Answer 2

可以用这么简单的方式调用一个程序。[正如你所说的那样是正确的]

例如

comments

子或函数未定义vb6

2 个答案: