求助：compile error can't find project or library
<p>Private Sub cmdCreate_Click()<br/> Dim CADAppobj As AcadApplication<br/> Dim CADDocument As AcadDocument<br/> Dim LayerObj As AcadLayer<br/> Dim PointObj As AcadPoint<br/> Dim TextObj As AcadText<br/> Dim Location(0 To 2) As Double<br/> Dim textPoint(0 To 2) As Double<br/> Dim sysVarName As String<br/> Dim sysVarData As Integer<br/> Dim strSQL As String<br/> Dim strFile As String<br/> Dim strName As String<br/> Dim rs As ADODB.Recordset<br/> Dim rsType As ADODB.Recordset<br/> Dim I As Integer<br/> Dim J As Integer<br/> <br/> On Error GoTo EndForm<br/> If m_CurLandType <> 0 Then<br/> '创建文件<br/> Screen.MousePointer = vbHourglass<br/> DoEvents<br/> <br/> strName = cboLandType.Text & "样点"<br/>' strFile = App.Path & "\" & strName & ".dwg"<br/> Set CADAppobj = New AcadApplication<br/> CADAppobj.Documents.Close<br/> Set CADDocument = CADAppobj.Documents.Add<br/> <br/> Set LayerObj = CADDocument.Layers.Add(strName)<br/> CADDocument.ActiveLayer = LayerObj<br/> CADDocument.Activate<br/> sysVarName = "PDMODE"<br/> sysVarData = 2<br/> CADDocument.SetVariable sysVarName, sysVarData<br/> SetForegroundWindow Me.hwnd<br/> SetAPIFocus Me.hwnd<br/> <br/> '写入数据<br/> J = 1<br/> pBar.Max = 1<br/> strSQL = "Select * From Ext_Type_Define Where Table_ID=1"<br/> Set rsType = m_Cnn.Execute(strSQL)<br/> Do While Not rsType.EOF<br/> strSQL = "Select Samples_ID,Sam_Code,Sam_CoordX,Sam_CoordY From Samples_" & _<br/> rsType!Type_ID & " Where Land_Type_ID=" & m_CurLandType & " Order by Samples_ID"<br/> Set rs = m_Cnn.Execute(strSQL)<br/> pBar.Max = rs.RecordCount + pBar.Max<br/> rsType.MoveNext<br/> Loop<br/> <br/> rsType.MoveFirst<br/> Do While Not rsType.EOF<br/> strSQL = "Select Samples_ID,Sam_Code,Sam_CoordX,Sam_CoordY From Samples_" & _<br/> rsType!Type_ID & " Where Land_Type_ID=" & m_CurLandType & " Order by Samples_ID"<br/> Set rs = m_Cnn.Execute(strSQL)<br/> For I = 1 To rs.RecordCount<br/> If Not IsNull(rs!Sam_CoordX) And Not IsNull(rs!Sam_CoordY) Then<br/> Location(0) = rs!Sam_CoordX<br/> Location(1) = rs!Sam_CoordY<br/> Location(2) = 0<br/> Set PointObj = CADDocument.ModelSpace.AddPoint(Location)<br/> PointObj.Color = acRed<br/> <br/> textPoint(0) = Location(0) + 25<br/> textPoint(1) = Location(1) - 28<br/> textPoint(2) = 0<br/> Set TextObj = CADDocument.ModelSpace.AddText(CStr(rs!sam_Code), textPoint, 50)<br/> TextObj.Color = acGreen<br/> End If<br/> pBar.Visible = True<br/> pBar.Value = pBar.Value + 1<br/> Label3.Visible = True<br/> Label3.Caption = "已转出:" & J & "个样点"<br/> J = J + 1<br/> rs.MoveNext<br/> Next I<br/> <br/> rsType.MoveNext<br/> Loop<br/> <br/> <br/> MsgBox "共转出" & J - 1 & "个样点", vbInformation, "提示"<br/> <br/> CADDocument.SaveAs Text2.Text<br/> txtCreate.Text = txtCreate.Text & "成功创建" & Text2.Text & vbCrLf<br/> CADAppobj.Quit<br/> DoEvents<br/> Screen.MousePointer = vbDefault<br/> End If<br/> Exit Sub<br/>EndForm:<br/> txtCreate.Text = txtCreate.Text & "！ERROR 失败创建" & strFile & vbCrLf & "Record=" & J<br/>End Sub</p><p></p><p>提示：compile error can't find project or library错误怎么解决，我是菜鸟，请高手指点。</p>
页:
[1]